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Vorwort 


Die Tatsache. daß Sie dieses Buch in der Hand halten, zeigt, daß 
Sie ein Colour-Genie Besitzer sind. der tiefer in die 

Geheimnisse der Naschinenprogrammierung einsteigen will. 

Dabei ist ein Kommentiertes Listing des Betriebssystems 
natürlich unerlässlich: zum einen zur Benützung der Routinen in 
eigenen Programmen. zum .anderen um die internen Abläufe des 
Basics .besser zu verstehen. 

Um das Verständnis zu erleichtern. finden Sie vor dem 

eigentlichen dokumentierten ROM-Listing etliche Seiten 
wertvoller Erklärungen. Wenn Sie diese lesen. betrachten Sie 
ruhig schonmal die angegebenen Speicher tei l e im Listing. 

Noch ein Hinweis: 

Im Text entspricht das Par agr aphenzeichen (8) dem "Klammeraffen" 

C © ) . 

Ich hoffe, daß dieses Buch Ihnen eine wertvolle Hilfe sein wird 
und wünschen Ihnen weiterhin viel Spaß mit Ihrem Colour-Genie. 


Krefeld, im Januar 1984 


Klaus Kämpf 


COMPUTER GMBH 
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Spei cher auf tei l ung 


Das Basic teilt den ihm zur Verfügung stehenden Speicherplatz 
in insgesamt sieben Teile in folgender Reihenfolge aufs 

1. Basic Programmtext 

2. Basic Variablen 

3. Freier Speicher 

4. Zwischenspeicher (Stach) 

5. St r ingspeicher 

6. SHRPE-Tabel le 

7. Unterprogramme in Maschinensprache 


Bis auf die SHRPE-Tabel l e . sind die Größen der einzelnen Teile 
veränderbar bzw. abhängig vom jeweiligen Bas icprogr amm . Die 
Größe des Stringspeichers wird durch den CLERR-Befehl fest- 
gelegt. die SHRPE- Tabelle ist auf 256 Bytes fixiert. 

Die ersten beiden Teile 'wachsen' bei der Eingabe eines Pro- 
gramms (1. Teil) bzw. der Rusführung (2. Teil) nach oben. Die 
Teile 4 und 5 'wachsen' nach unten. Bei jeder Speicherzu- 
weisung CEingabe einer Programmzei l e . neue Variablenzuweisung, 
neues CLERR n etc.) wird die Obergrenze des Variablenteils mit 
der Untergrenze des Stacks verglichen (MEM ist die Differenz 
dieser beiden Grenzen). Sind weniger als 60 Bytes vorhanden, 
dann wird ein OM-Error erzeugt. 

Der Stringspeicher wird ebenfalls von oben nach unten gefüllt. 
Die Differenz der Rdresse des 'tiefsten' bzw. zuletzt einge- 
fügten Strings (steht in 40D6H/4007H) und der Startadresse des 
St r ingspeichers wird bei jeder neuen Stringzuweisung errechnet 
Ist die Länge des neuen Strings größer als diese Differenz, so 
wird der Stringspeicher neu umsortiert (vgl. 28DRH) und erneut 
getestet. Konnte kein Platz geschaffen werden, bricht die Rou- 
tine mit einem OS-Error ab. 


Das folgende Schema gibt einen Überblick über die Speicherauf- 
teilung. In den in Klammern angegebenen Adressen befindet sich 
die jeweilige Grenzadresse. Die Grenzadresse zwischen dem 
Bas icprogr amm und den Variablen erhält man also durch 

PRINT PEEK( IH40F9) + 256*PEEK( &H40FA ) 
und alle anderen Werte entsprechend. 
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Start des Speichers: 4800H oder 5800H 


Basic Programmtext 


Einfache Variablen 


Indizierte (Feld-) Variablen 


Freier Speicher 


Stach 


St ringspeicher 


SHPPE Ta bei le 


Unterprogramme in Maschinensprache 


C40A4H) 


C40F9H) 


C40FBH) 


C40FDHD 


C40E8H) 


C40A0H) 


C40B1H) 


TOPIiEM 


Ende des Speichers: 7FFFH oder BFFFH 



Ein- und Ausgabe 


Alte Einheiten, die die Verbindung zum Benutzer hersteilen 
(Tastatur. Bildschirm. Drucker etc.), werden Device genannt. 
Jedes Device wird von einer speziellen Routine (Treiberrout ine) 
gesteuert, die jeweils ein einzelnes Zeichen verarbeitet. Zu 
jedem Device gehört ein Device Control Block CDCB). der nach 
einem festen Schema auf gebaut ist und es ermöglicht, den Aufruf 
einer Trei ber rout ine zu standardisieren. 


Im Colour Genie stehen im RAM ab 4015H. für Tastatur. Bild- 
schirm und Drucker jeweils ein DCB zur Verfügung. Jeder DCB 
besteht aus acht Bytes, die fol-gendermaßen belegt sind: 

1 . Byte: DCB-Typ 

2. und 3. Byte: Adresse der Treiberrout ine 

4. bis 8. Byte: Zur freien Verfügung der jeweiligen 

Treiberrout ine 


Der DCB-Typ gibt an. um welchen Typ von Device es sich handelt. 
Im Interpreter werden dabei drei Typen unterschieden: 

OiH: Nur Eingabe Cz.B. Tastatur) 

02H : Nur Ausgabe Cz.B. Drucker) 

04H : Ein- und Ausgabe Cz.B. serielle Schnittstelle) 


Will man ein Device ansprechen, muß im DE-Register nur die 
Adresse des gewünschten DCBs stehen. Nach Aufruf der ent- 
sprechenden Interpreter rout ine C0013H. 001BH. 0023H) übernimmt 
das ROM die restliche Steuerung (Rettung der Register etc.). 

Stimmt der DCB-Typ des angegebenen DCBs nicht mit der gewün- 
schten Funktion überein, wird nicht die Treiberrout ine ange- 
sprochen sondern nach 4033H im RAM gesprungen. Hier stehen 
3 Bytes zur Aufnahme eines Sprungbefehls zur Verfügung und man 
kann einen eventuellen Fehler abfangen. 

Soll nun z.B. der im Colour Genie fest installierte Drucker- 
treiber geändert werden, muß nur die Adresse der neuen Treiber- 
routine im DCB stehen. 

So kann man durch 

POKE 1H4026. PEEKC&H401EH) : POKE &H4027. PEEKC &H40 1 FH ) 
alle Zeichen vom Drucker zum Bildschirm umleiten. 


Wird die Treiberadresse der Tastatur und des Bildschirms auf 
die Adresse einer entsprechende Treiberrout ine für die RS232 
Schnittstelle geändert, so kann man das Colour Genie komplett 
von einem anderen Computer aus steuern. 


Tastaturtreiber 


Die Tastatur ist beim Colour Genie, im Gegensatz zu anderen 
Rechnern mit in den Speicherbereich einbezogen. 

Bei vielen Computern übernimmt die Tastaturabf rage ein speziel- 
les IC. daß dem Programm direkt den ASCII-Code der gedrückten 
Taste mitteilt. Bei solchen Hardwarelösungen ist der Code jeder 
Taste von vornherein auf den RSC I I -Zeichensatz festgelegt und 
nicht zu andern. 

Der große Vorteil beim Colour Genie ist die softwaremäßige Tas- 
taturkontrolle. bei der der Code jeder Taste vom Treiberpro- 
gramm festgelegt wird. Man erreicht dadurch nicht nur eine ein- 
fache Anpassung an andere Tastaturbelegungen C Graphikzeichen] . 
sondern kann auch mehrere Tasten auf einmal abf ragen und ent- 
sprechende Funktionen auslösen. 


Damit auch beim schnellen Tippen keine Taste verlorengeht, 
arbeitet der Treiber nach dem n-key-rol lover Prinzip. Dadurch 
wird erreicht, daß man die nächste Taste schon drücken kann, 
bevor man die letzte losgelassen hat. 

Zu diesem Zweck werden bei jeder Tastaturabf rage die aktuellen 
Zeilenwerte in einer Tabelle im RAM abgelegt C4036H] und mit 
den letzten Werten verglichen. Sind beide Werte gleich, so 
wurde keine neue Taste gedrückt. 

Für die Kont rol l t asten . die nicht im ASC I I-Standard erklärt 
sind, steht ab 0050H eine Tabelle mit den entsprechenden 
Werten. 

Eine Besonderheit der Routine ist die spezielle Behandlung der 
9REAK-Tas t e . Wird BREAK gedrückt, gibt die Routine nicht direkt 
den Wert zurück, sondern führt vorher noch ein RST 28H aus. Bei 
0028H steht ein Sprung ins RAM nach 400CH und dort ein RET. Es 
geschieht im Normal fall also nichts. Zum Schutz von Programmen 
kann man aber dadurch die BREAK-Taste sperren. Ändert man durch 

POKE ScH400C. fcHOOAF : POKE &H4000. IH00C9 

den RET-Befehl in 400CH in ein XOR A mit nachfolgendem RET ab. 
so wird die BREAK-Taste nicht mehr erkannt. Ein gestartetes 
Bas icprogramm kann also nicht mehr unterbrochen werden. 


Im Interpreter stehen nun folgende Routinen zur Tastatur- 
abfrage zur Verfügung: 

002BH Einmaliger Aufruf des Tastaturtreibers . Cwie INKEYS] 
035BH wie 002BH . aber ohne Benutzung des OE-Registers 
0049H warten auf Tastendruck. 002BH wird sooft aufgerufen, bis 
eine Taste gedrückt wurde. 

0040H Eingabe einer Zeile und Darstellung der gedrückten 
Zeichen auf dem Bildschirm Csiehe 0509H) 
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Bi l dschi rmt reiber 


Die Bildschirmanzeige stellt einen restgelegten Speicherbereich 
auf dem Bildschirm dar. Dabei wird zwischen dem Textspeicher 
(4400H bis 47FFH 3 und dem Graf ikspeicher C4800H bis 57FFH 3 
unterschieden. De nach Programmierung des CRTCs (siehe Anhang A 
im Handbuch) und des Ports 255 (Anhang E) wird entweder Text 
oder Grafik auf dem Bildschirm ausgegeben. 

Der Bi Idschirmtreiber ist nur für die Textdarstellung zu- 
ständig. die Grafikdarstellung übernehmen die Befehle PLOT. 
CIRCLE etc. 

Bei der Textausgabe setzt sich das dargestellte Bild aus zwei 
Speicherbereichen zusammen. Das "darzustel l ende Zeichen wird 
durch den Textspeicher (4400H bis 47FFH 3 . seine Farbe durch den 
Farbspeicher (FOOOH bis F3FFH) bestimmt. Im Textspeicher stehen 
die ASCII-Codes der einzelnen Zeichen, im Farbspeicher die 
dazugehörigen Farbcodes. 

Aufgabe des Bi Idschirmtreibers ist es. die auszugebenden 
Zeichen in den Textspeicher zu schreiben und den Farbspeicher 
entsprechend anzupassen. Die Erzeugung des Videosignals wird 
dann vom CRTC übernommen. 

Eine Besonderheit beim Bi Idschirmtreiber ist noch die Möglich- 
keit ihn mit dem DCB-Typ 'Eingabe' aufzurufen. Ist in diesem 
Fall der Cursor eingeschaltet, so gibt der Treiber den ASCII- 
Wert des 'unter' dem Cursor befindlichen Zeichens zurück. 

Im Bildschirm DCB befindet sich neben der Treiberadresse 
( 30E4H 3 auch die aktuelle Cursoradresse . Auf dieser Adresse im 
Textspeicher steht der Cursor und dort erscheint das nächste 
auszugebende Zeichen. Des weiteren wird im DCB noch der ASCII- 
Code des Zeichens 'unter' dem Cursor und der aktuelle COLOUR- 
wert abgesoeichert . Dieser Wert entspricht jedoch nicht dem 
Wert im Farbspeicher (siehe 3563H im ROM-List ing) . 


Im Interpreter steht nur eine Routine zur Zeichenausgabe zur 
Ver f ügung : 

0033H Ausgabe eines Zeichens auf dem Bildschirm 
(wie PRINT CHRS ( x 3 3 


7 



Oruckert reiber 


Der Drucker t reiber im ROM ist relativ kurz gehalten, da die 
meisten Drucker heutzutage über eigene Intelligenz verfügen. 

Man muß dem Drucker nur den RSCII-Wert des zu druckenden 
Zeichens übermitteln, die restliche Steuerung übernimmt das 
Gerät dann selbst. 

Die einzige Steuer aufgabe des Drucker t rei bers ist die Kontrolle 
der Seitenlange. Man kann durch ein POKE &H4028.X. wobei x die 
Rnzahl der Zeilen pro Druckerseite ist. den Seitenvorschub 
CRSCII-Code 0CH3 durch den Drucker t reiber kontrollieren lassen. 

Der Druckeranschluß erfolgt über die beiden Ports des PSG 
(siehe Rnhang B im Handbuch) . Port ft ist nur zur ftusgabe vorge- 
sehen und übergibt das Zeichen zum Drucker. Port B hat zwei 
ftufgaben: Erstens muß er vom Drucker sogenannte Steuerbits 
übernehmen, mit denen der Drucker mitteilt ob er schon das 
nächste Zeichen übernehmen kann, oder noch beschäftigt ist. 

Die zweite ftufgabe des Ports B ist es. dem Drucker mitzuteilen 
wann ein Zeichen an Port ft anliegt CStrobe). 


Für die Druckerausgabe ist vom Interpreter nur eine Routine 
vorgesehen : 

003BH ftusgabe eines Zeichens an den Drucker 


Der Drucker t reiber kann nur Drucker mit paralleler Schnitt- 
stelle bedienen. Falls ein serieller Drucker angeschlossen 
werden soll, muß man eine entsprechende Treiber rout ine 
schreiben und deren Adresse in den Drucker OCB schreiben. 



Casset tenrout inen 


Die Casset tenei n- und ausgabe wurde nicht über das DCB-Schema 
realisiert, da die Casset tenoperat ionen nicht auf einzelenen 
Zeichen, sondern ganzen Datenblöcken basieren. 

Ein solcher Datenblock ist entweder ein Programm oder durch 
einen PRINT#-1 Befehl entstanden. 

Allen Datenblöcken vorangestellt wird ein sogenannter Leader 
und ein Sync-Byte mit deren Hilfe der Computer den Anfang eines 
Datenblocks erkennen kann. Der Leader besteht aus 255 mal dem 
Wert AAH und das Sync-Byte ist der Wert 66H Cvgl. 023FH) . 

Jedes Byte, daß auf Cassette geschrieben werden soll, wird in 
seine acht Bits zerlegt und dann bitweise abgespeichert. 
Zwischen je zwei Bits wird noch ein Synchronisationsimpuls 
CC l ockimpul s ) geschrieben, um eventuelle Qleichlaufschwankungen 
des Rekorders auszugleichen. 

Auf der Cassette werden nur zwei verschiedenen Pegel abgespei- 
chert und jedes Bit bzw. jeder Clockimpuls durch einen Pegel- 
wechsel dargestellt. Fehlt zwischen zwei Clockimpulsen der 
Pegel Wechsel . so ist das Bit ’0* . andernfalls 


Das Byte 5AH C01011010) wird dann folgendermaßen abgespeichert: 


Pegel hoch 

Pegel tief 
Clock: 

Bits : 



C 


C C C 

0 1 0 


Der Abstand zwischen 
wird von dem Wert in 
nächsten Clockimpuls 


einem Clockimpuls und dem Datenbyte CtlD 
43 1 OH , der Abstand von diesem Datenbit zum 
Ct2) von dem Wert in 4311H bestimmt. 
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Das Lesen eines Bandes ist etwas schwieriger. Ober den Leader 
und das Sync-Byte wird der Lesevorgang synchronisiert . damit 
nicht Clock- und Datenimpulse verwechselt werden. Beim Lesen 
eines Bytes wartet der Computer auf den C C l ocki mpu l s ) und führt 
dann eine Zeitschleife aus. Danach wird der aktuelle Pegel mit 
dem letzten Wert verglichen. Falls sich der Pegel geändert hat. 
ist das Bit gleich *1’ ansonsten *0". Die Wartezeit wird durch 
den Wert in 4312H bestimmt. 

Ändert man die drei genannten Zeitwerte im gleichen Verhältnis, 
so können Casset tenoper at ion auch langsamer (bei schlechten 
Recordern] oder schneller (bei guten Recordern) gemacht werden. 


Für Cassettenoperat ionen stehen folgende Routinen zur Verfügung: 

023FH Leader und Sync auf Cassette schreiben 
024CH Leader und Sync auf Cassette suchen 
021 FH Ein Byte auf Cassette schreiben 
01EDH Ein Byte von Cassette lesen 
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Das Casset tenformat 


Das Colour Genie kennt zwei verschiedene Cassettenformate : 

Oas Format der SYSTEM-Bänder und das der CLOAD-Bänder . Ein 
Band, das vom CLOAD-Befehl gelesen werden soll, muß folgendes 
Format haben: 

1 . Leader und Sync 

2. Ein ASC I I -Zeichen für den Filenamen 

3. Das Bas icprogr amm . wie es im Speicher steht 

4. Drei Bytes 00H zur Endkennung 


Aufzeichnungen von Maschinenspracheprogrammen C SYSTEM-Bänder ) 
teilen sich in einzelne Datenblöcke auf. Zu jedem Datenblock 
wird seine Länge und die Blockadresse mit aufgezeichnet . 

Ein Band, daß mit dem SYSTEM-Befehl geladen werden soll, muß 
folgendes Format haben: 

1 . Leader und Sync 

2. Ein Byte 55H C SYSTEM-Kennung ) 

3. 6 Bytes Progr ammnamen 

4. Blockkennung 3CH oder 78H . Ein Byte 3CH ist Kennung für 
einen Datenblock. 78H kennzeichnet das Aufzeichnungsende. 

5. Datenblocks. Das erste Byte eines Datenblocks gibt die 
Länge des Blocks an. Danach folgt die Adresse, ab der die 
Daten des Blocks im Speicher abgelegt werden sollen. Nach 
den Datenbytes schließt eine Prüfsumme den Block ab. Diese 
Prüfsumme besteht aus einem Byte und ist die Summe aller 
Datenbytes und der beiden Adressbytes. 

Während des Ladevorgangs wird diese Summe vom SYSTEM- 
Befehl errechnet und am Blockende mit der gelesenen 
Prüfsumme verglichen. Sind beide Summen verschieden, so 
wird ein ’C' angezeigt, der Ladevorgang aber nicht unter- 
brochen . 

6. Nach dem Byte 78H folgen die beiden Bytes der Einsprung- 
adresse und der Ladevorgang wird beendet. 



Graphikrout inen 


Wie die den Casset tenoper at ionen . ist auch die Graphikausgabe 
auf einzelnen Routinen aufgebaut , die alle im ROM oberhalb 
3000H liegen. Beim Rufruf dieser Routinen ist zu beachten, daß 
sie den Speicherbereich zwischen 42F0H und 4321H benutzen. Es 
stehen die folgenden Unterprogramme zur Verfügung: 

38R9H Umschaltung auf den FGR-Modus 

38B0H Umschaltung auf den LGR-Modus 

3852H FCLS CR « Farbcode) 

388RH PLOT CH * Y-Koordinate. L - X-Koordinate) 

3CC6H PLOT C wie 3B8RH . aber mit vertauschten Koordinaten) 

3F3RH R * C PO INT C L . H ) 

3C1FH PLOT D.E TO H.L CLinie ziehen) 


Die restlichen Befehle wie CIRCLE und 
Parameter direkt aus dem Programmtext 
leicht von Maschinenspracheprogrammen 


PRINT holen sich ihre 
und können daher nicht so 
benutzt werden. 
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Programmabl auf nach dem Einschalten 


Nach dem Einschalten des Colour Genies beginnt der Mikro- 
prozessor mit der Programmausführung bei 0000H . Dort werden 
zuerst die Interrupts gesperrt, da der Speicher CDCBs etc.) 
noch nicht initialisiert ist. 

Diese Grundeinstellung des Speicherbereicht 4000H bis 43FFH 
wird durch die Start-Routinen erreicht. Start 1 beginnt bei 
0674H und schaltet den Bildschirm zuerst auf den Textmodus um. 
Danach werden die RST-Vektoren und DCBs aufgebaut. Dieser Ruf- 
bau wird viermal wiederholt, damit sich die Spannungs Versorgung 
vollständig stabilisieren kann und der Speicher die Daten auch 
behäl t . 

Oie nächsten wichtigen Befehle folgen in Start 2 ab 056DH . Hier 
wird der Farbspeicher gelöscht und die Programmierungstabei l en 
für den CRTC ins RRM geschrieben. Start 4 und 5 kopieren einen 
weiteren Teil des ROMs ins RRM und prüfen ob sich eine ROM- 
Cassette mit einem Bas icprogr amm im Slot befindet. Ist dies 
nicht der Fall, dann legt Start 6 C007BH) die Startadresse von 
Bas icprogr ammen fest. Diese ist normalerweise 5801H, also nach 
dem Grafikspeicher. Hält man jedoch während des Start Vorgangs 
die MOD SEL-Taste gedrückt, so wird der gesamte Grafikspeicher 
für Programme freigehalten. 

Falls eine ROM-Cassette mit einem Bas icprogr amm vorhanden ist. 
beginnt Start 6 bei 008BH und die Startadresse des Basicpro- 
gramms wird auf C001H festgelegt. 

Danach wird der Speicherbereich von 41E5H bis 42E7H als Zeilen- 
buffer reserviert. Hier wird jede eingegebene Zeile zwischenge- 
speichert und erst nach Drücken von RETURN übernommen. 

Oie folgenden Befehle sperren die sogenannten Disk Basic 
Vektoren C4152H bis 41E4H). Dies sind ’Rusgänge' aus dem 
normalen Basic und dienen zur Befehlserweiterung bei Rnschluß 
eines Diskettenlaufwerks. Die Befehl svektoren werden im Basic 
alle auf 'SN Error' gestellt und die restlichen Rusgänge durch 
'RET' unwirksam gemacht. Will man einen Rusgang selbst nutzen, 
so braucht man nur den Vektor durch einen Sprungbefehl auf die 
eigene Routine zu ersetzen. 

So kann z.B. durch folgende POKEs der Befehl LORD anstelle von 
CLORD benutzt werden: POKE &H4189. &H1F : POKE &H418R. &H2C . 

Im folgenden wird dann der CRTC programmiert . das SP-Register 
gesetzt, nocheinmal auf ROM-Casset t en getestet und ein even- 
tuell vorhandenes Maschinenspracheprogramm gestartet. Danach 
wird MEM SIZE abgefragt und dementsprechend die Speicherober- 
grenze festgelegt. Drückt man als Rntwort nur 'RETURN*, so wird 
der gesamte RRM-Speicher ab 4000H ausgetestet und die oberen 
256 Bytes rür die SHRPE -Tabe Ile Treigehal ten . Gibt man jedoch 
eine Speicheradresse an. so wird überprüft ob sie tatsächlich 
zum RRM-Speicher gehört und diese Rdresse als Obergrenze des 
Speichers angenommen. Rnhand dieses Wertes werden dann alle 
anderen speicherabhängigen Parameter errechnet, der Text 
'COLOUR BRSIC’ ausgegeben und zum aktiven Befehlsmodus ge- 
sprungen . 
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Interne Abspeicherung 


Jede eingegebene Programmzei le wird vom Interpreter in einen 
Zwischencode umgewandelt. Dadurch wird nicht nur der Speicher- 
bedarf verringert, sondern auch die Ausführungszeit gekürzt. 

Jeder Basicbefehl bekommt dabei ein bzw. zwei Bytes, sogenannte 
’ Token’, zugeordnet. 

Die meisten Basicberehle werden intern durch einen Wert 
zwischen 128 und 251 repr äsent ier t . Die restlichen Befehle 
brauchen zwei Werte, wobei der erste 255 ist und der zweite 
zwischen 128 und 153 liegt. 

Einen Überblick gibt eine Tabelle am Ende des Buches. 

Jede Zeilennummer einer Programmzei l e wird intern als 16 Bit 
Wert C2 Bytes) abgespeichert. Zeilennummer, die zu Befehlen 
gehören Cz. B. GOTO 10). werden ziffernweise abgespeichert. Der 
Befehl GOSUB 2 braucht also 2 Bytes CI Byte für den Befehl und 
1 Byte für eine Ziffer), der Befehl GOSUB 10000 dagegen 6 
CI Byte für den Befehl und 5 Bytes für die 5 Ziffern). 

Zu jeder Zeile wird zusätzlich die Endadresse der Zeile + 1 ab- 
gespeichert. Dieser 'Link' Cengl. Verbindung) zur nächsten 
Zeile ermöglicht es den Programmtext schneller nach einer be- 
stimmten Zeile abzusuchen. 

Das Ende jeder Zeile wird zusätzlich durch den Wert 00H gekenn- 
zeichnet . 

Daraus ergibt sich für jede Zeile ein minimaler Speicherbedar f 
von 5 Bytes C2 Bytes Link. 2 Bytes Zeilennummer und 1 Byte End- 
kennung) . 
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Als Beispiel soll nun die interne Darstellung des folgenden 
Programms dienen: 

Cvgl. Befehlstabelle und ASC I I-Tabel l e am Ende des Buches) 

10 CLS 

20 PRINT'*Hallo !** 

30 FGR : FCLS 1 : LGR 
40 GOTO 10 


Dieses Programm steht so im Speicher: 
(Alle Werte in Hexadezimal) 


5801 : 07 58 
5807: 16 58 
5816: 25 58 
5825: 2E 58 
582E: 00 00 


OA 00 84 00 

14 00 B2 22 48 61 6C 6C 6F 20 21 22 00 
IE 00 FF 85 3A FF 87 20 31 3A FF 86 00 
28 00 8D 20 31 30 00 


Die Startadresse des Bas icprogramms Chier 5801H) wird durch den 
wert in den Speicherzellen 40A4H und 40A5H bestimmt. Die End- 
adresse plus zwei Chier 5830H) steht in den Speicherzellen 
40F9H und 40FAH . 

ODie erste Zeile CZeile 10) besteht aus 6 Bytes. Die ersten 
beiden Bytes bilden den Link zur nächsten Zeile C« 5807H) die 
nächsten beiden ergeben die Zeilennummer COOOAH = 10). 

Zu beachten ist. daß immer das niederwert igte Byte vor dem 
höherwertigen Byte abgespeichert wird. 

Nach der Zeilennummer folgt der Zwischencode der Zeile. Wie aus 
der Befehlstabelle hervorgeht, stellt das Token 84H den Befehl 
CLS dar. Das Zeilenende ist mit 00H gekennzeichnet. 

In der nächsten Zeile wird nur das Befehlswort PRINT im 
Zwischencode dargestellt, der Text wurde Zeichen für Zeichen 
übernommen Cvgl. ASC I I -Tabe l l e) . 

Zeile 30 enthält Befehle, die sich auf die Grafik des Colour 
Genies beziehen. Diese Befehle brauchen zwei Token im Speicher 
C FF 85 « FGR. FF 87 => FCLS. FF 36 * LGR). 

Die durch ein Leerzeichen vom Befehl FCLS getrennte 1 ist auch 
im Speicher durch den Wert 20H von den Token FF 87 getrennt. Es 
werden also bei der Zwischencodeerzeugung keine Leerzeichen ge- 
l öscht . 

Der Link der letzten Zeile zeigt auf das Ende des Basicoro- 
gramms. daß durch einen Null-Link gekennzeichnet wird. Zusammen 
mit dem Zeilenende der letzten Zeile, steht dann 3 mal der Wert 
00H im Speicher. Diese 3 aufeinanderfolgenden Nullen werden 
beim CLOAD-Befehl zur Erkennung des Pr ogr ammendes verwendet. 


15 



Im Anschluß an den Programmtext werden die Variablen abge- 
speichert . 

Jeder Variablenname Kann aus ein oder zwei Zeichen, wobei das 
erste Zeichen ein Buchstabe sein muß. bestehen. 

Ganzzahlige Werte brauchen 2. Werte einfacher Genauigkeit 4. 
Werte mit doppelter Genauigkeit 8 und Stringwerte 3 Bytes. Da 
Variablen ausser durch ihren Namen auch durch ihren Typ unter- 
schieden werden, muß der Typcode mit abgespeichert werden. 
Dieser Typcode wird auch gleichzeitig als Link zur nächsten 
Variablen benutzt. Addiert man nämlich zur Adresse des Typcodes 
den Wert des Typcodes ♦ 3. so erhält man die Adresse der 
nächsten Variblen im Speicher. 

Es ergibt sich also für ganzzahlige Variablen ein Speicherbe- 
darf von 5 Bytes (1 Byte Typcode. 2 Bytes Namen. 2 Bytes Wert). 
Variablen einfacher Genauigkeit -brauchen insgesamt 7. Variablen 
doppelter Genauigkeit 11 und Stringvariablen 6 Bytes. 

Die Stringvariablen machen insofern eine Ausnahme, als daß ihr 
'Wert’ - also die Zeichenkette - nicht im Variablenspeicher, 
ondern im Stringspeicher steht. Die 6 Bytes Platzbedarf einer 
Stringvariablen spalten sich dabei in folgende Teile auf: 

1 Byte Typcode (- 3). 2 Bytes Variablennamen, 1 Byte Länge der 
Zeichenkette und 2 Bytes Adresse der Zeichenkette im String- 
speicher bzw. Cbei Stringkonstanten) im Programmtext . 

Das folgenden Programm soll hier als Beispiel dienen: 

10 B-100:BK-21 
20 C3-27:D7#-lD+5 
30 AS -"KONSTANTE" 


5801: 11 58 

5811: 24 58 
35 00 

5824: 34 58 

5834: 00 00 

5838: 04 00 

583D : 02 00 

5842: 04 33 

5849: 08 37 

5854: 03 00 


0A 00 42 D5 31 30 30 3A 42 25 05 32 31 00 

14 00 43 33 05 32 37 3A 44 37 23 D5 31 44 CD 

IE 00 41 24 05 22 53 54 52 49 4E 47 22 00 

42 00 00 48 87 

42 15 00 

43 00 00 58 85 

44 00 00 00 00 00 50 43 91 

41 09 2C 58 
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Das Programm belegt den Speicher von 5801H bis 5833H . 

In 5834H/5835H steht der Null -Link zur Kennzeichnung des Pro- 
grammendes. Ab 5836H folgen die Variablen in der Reihenfolge 
wie sie im Programm auftauchen. 

Als erstes steht der Typcode im Speicher. Daran anschließend 
die beiden Bytes des Variablennamens in umgekehrter Reihen- 
folge. Fehlt das zweite Zeichen des Namens, so wird 00H einge- 
setzt. Zum Schluß ist der Wert der Variablen in der internen 
Darstellung abgespeichert. Eine genaue Erklärung dieser Dar- 
stellungsart steht an anderer Stelle in diesem Buch. 

Die Adresse einer Variable, die man durch den VARPTR-Be f eh l 
erhält, ist immer die Adresse des ersten Bytes des wertes (also 
5839H für B) . 

Die erste Variable hat keine expliziete Typangabe und wird 
daher mit einfacher Genauigkei t - verarbei tet . Die zweite 
Variable hat zwar den selben Namen, unterscheidet sich aber 
durch die Typangabe von der ersten. 

Bei der Stringvariablen am Ende ist nur die Länge (9 Zeichen) 
und die Adresse der zugehörigen Zeichenkette abgespeichert 
C582CH) . 


Bei Fel dvar iab l en sieht die Speicherung etwas anders aus. 

Ein Feld besteht immer aus Variablen gleichen Typs und gleichen 
Namens die durch ihren Index unterschieden werden. Daher werden 
Typcode und Namen eines Feldes nur einmal abgespeichert. Da bei 
Feldern der Typcode nicht als Link dienen kann, wird zusätzlich 
die Gesamtlänge des Feldes abgespeichert. Danach folgt die An- 
zahl der Dimensionen und dann für jede Dimension der maximale 
Index + 1 als 16Bit Wert. Am Schluß stehen die Werte der ein- 
zelnen Feldelemente mit jeweils 2 (Ganzzahlig), 4 CEinfache 
Genauigkeit). 8 (Doppelte Genauigkeit) oder 3 Bytes (Strings). 
Die genaue Reihenfolge erhält man. wenn man die Indizes der 
Reihenfolge nach durchzählt. Für das Feld A(2.1) ergibt sich 
also folgende Reihenfolge: 

ACO.O). AC1.0). A( 2 . 0 ) . A(0.1). A(l.i). A(2.1) 
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Eingabe und Ausführung von Befehlen und Programmen 


Die Eingabe von Befehlen und Programmzeilen geschieht im soge- 
nannten aktiven Befehlsmodus. Dieser Programmteil des ROMs Cab 
1A19H) übernimmt die Zeileneingabe und die Abspeicherung neuer 
Programmzei l en . 

Jede eingegebene Zeile wird, falls die Eingabe nicht mit BREAK 
beendet wurde, in den Zwischencode umgewandelt C 1BC0H ff). 
Steht am Anfang der Befehlszeile keine Zeilennummer, dann wird 
die Zeile direkt ausgeführt ansonsten ins Programm übernommen 


Die Ausführung von Bas icprogrammen und Befehlen läuft über die 
Programmschi ei re C1D1EH). Das HU-Register enthält immer die 
Adresse des nächsten auszuführenden Befehls bzw. Tokens. Im 
ROM-Listing ist diese Adresse mit PTZ C ' ProgrammTextZeiger ' ) 
bezeichnet. Aus dem Tokenwert und der Sprungadressentabelle 
wird dann die Adresse der Befehlsroutine ermittelt. 

Jede Routine erhält die Adresse ihrer Parameter im HL-Register 
mitgeliefert und muß dafür sorgen, daß diese abgearbeitet 
werden. Bei der Rückkehr in die Programmschleife muß der PTZ 
auf das Befehls- bzw. Zeilenende zeigen. 

Der aktuelle PTZ wird (vor der Befehlsausführung) im RAM bei 
40E6H/40E7H abgelegt. Dadurch weiß die RESUME-Rout ine . ab wo 
der letzte Befehl wiederholt werden muß. Der aktuelle Stack- 
pointer wird bei 40E8H/'40E9H abgespeichert. Der Bereich ober- 
halb der Stackpointeradresse ist das sogenannte Basic-Stack. ' 
Hier werden von GOSUB und FÜR die Parameter für RETURN und NEXT 
abgespeichert . 

Diese Parameter werden folgendermaßen im Stack abgelegt: 


GOSUB: 

C vgl . GOSUB ab 1EB1H ff und RETURN ab 1EDEH ) 


CSP + 04HD 
CSP + 03H ) 
CSP + 02H) 
CSP + 0 1 H ) 
CSP + 00H ) 


LSB des PTZ 
MSB des PTZ 

LSB der aktuellen Zeilennummer 
MSB der aktuellen Zeilennummer 
9 1H CGOSUB-Kennung) 


Der PTZ ist die Adresse, ab der die Progr ammaus Tührung bei 
RETURN fortgesetzt werden soll. 
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FOR-Schleife mit einer Variablen einfacher Genauigkeit: 
C vgl . 1CA1H ff) 


CSP + 10H) 
CSP + OFH) 
(SP + OEH) 
CSP + ODH ) 

CSP + OCH) 
CSP + OBH) 
CSP + OAH) 
CSP + 09H ) 

CSP + 08H ) 
CSP + 07H ) 
CSP 06H) 
CSP + 05H ) 
CSP + 04H) 
CSP + 03H ) 
CSP + 02H ) 
CSP + 0 1 H ) 
CSP + OOH ) 


LSB des PTZ 
MSB des PTZ 

LSB der aktuellen Zeilennummer 
MSB der aktuellen Zeilennummer 
Endwert der Schleife: 

LSB 

LSB 

MSB 

EXP 

Schrittweite der Schleife: 

LSB 

LSB 

MSB 

EXP 

0 1 H C- VT - 3) 

SGN der Schrittweite CFFH. OOH oder OIH) 
LSB der Adresse der Schleifenvariablen 
MSB der Adresse der Schleifenvariablen 
8 1H C FOR-Hennung) 


FOR-Schleife mit einer Integer var i abl en 


CSP + 10H) 
CSP + OFH) 
CSP + OEH) 
CSP + OOH) 
CSP ♦ OCH) 
CSP + OBH) 
CSP + CAH) 
CSP + 09H ) 
CSP + 08H ) 
CSP + 07H) 
CSP + 06H) 
CSP + 05H ) 
CSP + 04H) 
CSP + 03H ) 
CSP + 02H ) 
CSP + OIH) 
CSP + OOH) 


LSB des PTZ 
MSB des PTZ 

LSB der aktuellen Zeilennummer 

MSB der aktuellen Zeilennummer 

LSB des Endwerts 

MSB des Endwerts 

LSB der Schrittweite 

MSB der Schrittweite 

Unbenutzt 

Unbenutzt 

Unbenutzt 

Unbenutzt 

FFH C* VT - 3) 

SGN der Schrittweite CFFH. OOH oder OIH) 
LSB der Adresse der Schleifenvariablen 
MSB der Adresse der Schleifenvariablen 
8 1H (FOR-Hennung) 


Oer PTZ zeigt auf den ersten Schlei Tenbefehl . die aktuelle 
Zeilennummer ist die Nummer dieser Befehlszeile. 


19 



Das interne Variablenformat 


Ganze Zahlen 


Eine Speicherzelle im Colour Genie sind immer 8 Bits oder kurz 
'Byte'. Der höchste Wert, den man mit einem Byte darstellen 
kann ist 11111111 C* 2551. Da die Befehle PEEK und POHE immer 
auf eine Speicherzelle Cein Byte) zugreifen, können nur Werte 
zwischen 0 und 255 angegeben werden. 

Nimmt man nun zwei hintereinander l iegende Speicherstellen zu- 
sammen. so können mit den zwei Bytes C 16 Bits). Werte zwischen 
0 und 65535 dargestellt werden. - 

Die unteren 8 Bits einer solchen 16 Bit Zahl stehen immer zu- 
erst im Speicher. Soll also z.B. die Binarzahl 0101101011000011 
in den Speicherzellen 20000 und 20001 abgespeichert werden, 
erhält die erste Zelle 11000011 und die zweite 01011010. 

Auf diese Weise werden im Colour Genie die Zeilennummern abge- 
speichert . 

Wieso dann nicht Zeilennummern bis 65535 erlaubt sind, liegt 
daran, daß z.B. die Zeilennummern 65534 und 65535 anders ver- 
wendet werden. So bekommt jeder Befehl der ohne Zeilennummer 
- also zur direkten Ausführung - eingegeben wird, die Zeilen- 
nummer 65535 zugeordnet. So kann die Fehl errout ine entscheiden, 
ob bei einer Fehlermeldung die Zeilennummer mit angegeben wird 
oder nicht. Während der mem SIZE Abfrage ist die Zeilennummer 
auf 65534 festgelegt. In diesem Fall springt die Fehl errout ine 
zur MEM SIZE Abfrage zurück. 

Zur Darstellung von negativen Werten, wird im Colour Genie die 
Anzahl der Bits einer Integerzahl auf 15 beschränkt und das 
16. Bit (höchstes Bit) als Vorzeichen genommen. 

Die Binärzahl 0111111111111111 (Eine 0 und 15 Einsen) hat dann 
den Wert +32767. Setzt man das 16. Bit auf '1*. so erhält man 
eine negative Nummer. 

Aber 1111111111111111 (16 Einsen) im Integer format ist nicht 
-32767. sondern -1. Es gibt zwei Wege den Wert einer solchen 
Integerzahl zu errechnen: 

Falls das Vorzeichenbit '1* ist. so ermittelt man den Wert der 
16 Bits, im obigen Beispiel ergibt dies 65535 (16 Einsen). Von 
diesem Wert zieht man dann 65536 ab und erhält den richtigen 
Wert (hier -1). Ist das Vorzeichenbit 0. dann geben die ver- 
bleibenden 15 Bits den richtigen Wert an. 

Die zweite Methode ist etwas komplizierter. Wenn das 16. Bit 
gleich '0' ist. so bleibt alles beim alten. Ist es aber *1’. so 
vertauscht man in restlichen 15 Bits, alle *1' mit '0' und um- 
gekehrt. Dann wird eins addiert und man erhält den positiven 
wert der (negativen) Integerzahl. 
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Einfache und doppelte Genauigkeit ( Fl ießkommaformat 3 


Das Integer format erlaubt nur die Verarbeitung ganzer Zahlen. 
Zur Darstellung von Brüchen i» Binarsystem rührt man nun einen 
'Binärpunkt ' ein. 

Im Integer format verdoppelt sich der Stellenwert der einzelnen 
Binarziffern von rechts nach links. Bei der Zahl 111 hat die 
erste Ziffer von rechts den Stellenwert 1. die nächste Ziffer 
links daneben erhält den doppelten Stellenwert C2) usw. 

Geht man von links nach rechts vor. so halbiert sich der Stel- 
lenwert jeweils. Rechts der Einerstelle steht dann der Stellen- 
wert 1/2. dann 1/4. 1/8 usw. Zur Kennzeichnung der Einerstelle 
schreibt man dann rechts davon einen 'Binarpunkt'. 

Die Binärzahl 101.011 hat dann den Wert 5.375 C 4+1+1/4+1/83 . 

Da der Binärpunkt aber nicht mit abgespeichert werden kann, 
ändert man die Schreibweise von 101.011 in 0.101011 * 2 hoch 3. 
Die Zahl wird also in die sogenannte Mantisse (0.1010113 und 
den Exponenten C2 hoch 33 auf gespal ten . 

(1/2 + 1/8 + 1/32 + 1/64 * 8 - 5.3753 

Zur Erhöhung der Genauigkeit werden alle Zahlen mit einer mög- 
lichst großen Anzahl von Nachkommastellen abgespeichert. 

Der Binärpunkt wird dazu soweit nach rechts verschoben, bis 
alle Nullen zwischen dem Binärpunkt und der ersten ’l’ gelöscht 
sind. 

Die Binärzahl 0.00101 * 2 hoch 3 wird als 0.10100 * 2 hoch 1 
gespeichert . 


Für die Zahl 11.4375 ergeben sich demnach folgende Darstel- 
lungsmögl ichkeiten: 

1 . 001011.0111 

(8 + 2 + 1 + 1/4 + 1/8 + 1/16 * 11.43753 

2. 0.0010110111 * 2 hoch 6 

(1/8 + 1/32 + 1/64 + 1/256 + 1/512 + 1/1024 * 64 = 11.43753 

3. 0.1011011100 * 2 hoch 4 

(1/2 + 1/8 + 1/16 + 1/64 + 1/128 + 1/256 * 16 * 11.43753 


Da bei der 3. Möglichkeit das erste Bit nach dem Binärpunkt 
immer eine '1' ist. braucht dieses Bit nicht mit abgespeichert 
zu werden. 

Diese Tatsache wird im Colour Genie zur Vorzeichenkennung 
genutzt. Vor der Speicherung wird diese '1' gelöscht und eine 
'0' für positives bzw. '1' für negatives Vorzeichen eingesetzt. 
Die Zahl +11.4375 ist dann gleich 0.0011011100 * 2 hoch 4 und 
die Zahl -11.4375 gleich 0.1011011100 * 2 hoch 4. 
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Von den 4 Bytes einer Zahl einfacher Genauigkeit stehen 3 Bytes 
für die Matisse zur Verfügung, die 24 Bits lang ist. Das vierte 
Byte enthält den C Zweier- ) Exponent en . Da der Exponent sowohl 
positiv als auch negativ sein kann. muß ein Bit des Exponenten- 
bytes für das Vorzeichen reserviert werden. Dem eigentlichen 
Exponenten stehen dann 7 Bits zur Verfügung. Zusätzlich wurde 
noch festgelegt. daß eine Zahl den Wert 0 hat. falls das Expo- 
nentenbyte Null ist. 

Dies hat den Vorteil. daß die Prüfung auf Null aur ein Byte 
beschränkt bleibt. 

Im Exponentenbyte steht nun der Zweierexponent +128. Dem Expo- 
nenten 129 entspricht also eine Multiplikation der Mantisse mit 
2 ( » 2 hoch (129 - 128)). dem Exponenten 126 eine Multipli- 
kation mit 0.25 ( - 2 hoch C 126 - 128)). 

Die größte Zahl, die auf diese »eise dargestellt werden kann, 
ist 2 hoch 127 « 1.701411 * 10 hoch 38 - 1.7014UE38. 


Die doppelte Genauigkeit wird nach dem selben Schema aufgebaut, 
nur daß für die Mantisse 7 Bytes ( = 56 Bits ) zur Verfügung 
stehen . 


Wie beim Integer formet auch, werden die 4 bzw. 8 Bytes einer 
Fließkommazahl in umgekehrter Reihenfolge im Speicher abgelegt. 
Das unterste Byte der Mantisse, das LSB (engl. Least signifi- 
cant Byte, niederwertigstes Byte) steht zuerst im Speicher. Vor 
dem Exponenten, der als letztes abgespeichert wird, steht das 
höchste Byte (engl. Most significant Byte, kurz MSB. höchstwer- 
tigstes Byte) der Mantisse mit dem Vorzeichenbit (vgl. Seite 97 
i m Handbuch) . 
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Zur Verdeutlichung des Fließkommaformats sollen nun die folgen- 
beiden Beispiele dienen. 

Angenommen, die Variable A hat den Wert 10. Über den VARPTR- 
Befehl erhalt man die Adresse der Variablen und ein PEEK auf 
diese und die nächsten drei Adressen ergibt vier Werte in 
folgender Reihenfolge: 

0 0 32 132 oder binär 00000000 00000000 00100000 10000100 

Die ersten drei Werte sind die Mantisse in umgekehrter Reihen- 
folge. das vierte der Exponent. Zieht man vom Exponenten 128 
ab. so ergibt dies einen Exponenten von 4. die Mantisse muß 
also mit 2 hoch 4 ( > 16 ) multipliziert werden. Die Mantisse 
in der richtigen Reihenfolge und einer '1' statt des Vorzei- 
chenbits ist dann: 

.10100000 00000000 00000000 - 1/2 + 1/8 * 0.625 
Mit 16 multipliziert ergibt das genau 10. 


Bei einer anderen Variablen erhält man über VARTPTR und PEEK 
die Werte 0, 208. 201 und 131. Welcher Wert wurde aer Variablen 
zugewiesen ? 

Der Exponent ist 3 C= 131 - 128) und die Mantisse in der rich- 
tigen Reihenfolge ist 11001001 11010000 00000000. Die *J* im 
höchsten Bit zeigt, daß die Zahl negativ ist. 

Die Errechnung der Mantisse sieht dann folgendermaßen aus: 
(Statt des Vorzeichenbits wurde wieder eine '1* eingesetzt) 

.1 1001001 1 101000000000000 

> 1/4096 

> i/i024 

> 1/512 

> i/256 

> 1/32 

1/4 

i /2 


= .78833 

Mit Zweierexponenten und Vorzeichen ergibt dies einen Wert von 
-6.30664 
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Zeichenketten (Strings) 


Im Gegensatz zu Zahlenwerten, teilt sich bei Strings die Ab- 
speicherung in zwei Teile. Der erste Teil, der sogenannte 
St r ingvektor . besteht aus 3 Bytes und enthält die Länge der 
Zeichenkette sowie ihre Adresse im Speicher. Der zweite Teil 
ist die Zeichenkette selbst, die meistens im St r i ngspeicher 
steht . 

Über den VARPTR-Bef ehl erhält man nur die Adresse des ersten 
Teils, nicht die Adresse der Zeichenkette. Ein PEEK auf dieser 
und den beiden nächsten Adresse ergibt dann als ersten Wert die 
Stringlänge und als zweiten und dritten Wert die Adresse der 
eigentlichen Zeichenkette (auch hier stehen wieder die unteren 
8 Bits der 16Bit Adresse zuerst-im Speicher). 

Angenommen man will wissen wo die Zeichenkette der String- 
variablen AS im Speicher steht, so erhält man die Adresse auf 
folgende Weise: 

PRINT PEEKC VARPTR ( AS ) + 1 ) + PEEKC VARPTRC AS ) +2 ) * 256 


24 



Die Rechenroutinen des Colour Genies 


Wie im Mikroprozessor auch, laufen alle Rechnungen im Colour 
Genie Basic über einen 'Akkumulator’. Über diesen Zwischen- 
speicher werden alle Argumente an die Rechenroutinen übergeben, 
die ihrerseits das Ergebnis auch wieder dort ablegen. 

Im Colour Genie gibt es zwei solcher Zwischenspeicher genannt 
X und Y C 41 10H ff und 4127H ff). 

Der Zwischenspeicher x wird für alle Funktionen mit einem Argu- 
ment CSIN. COS . INT. SQR etc.) verwendet und enthält auch 
grundsätzlich das Ergebnis. Der Zwischenspeicher kann alle vier 
Variablenformate aufnehmen. Welches Format sich gerade im 
Zwischenspeicher X befindet, witd durch den Variablentyp (VT) 
an der Stelle 40RFH bestimmt. Der VT ist als die Rnzahl der 
Bytes, die den Wert der Variablen enthalten, festgelegt. 

Der VT eines Integer- wertes ist also 2 (Eine Integerzahl 
besteht aus 2 Bytes), der eines Wertes einfacher Genauigkeit 4 
(Das Singleformat braucht 4 Bytes) und der VT für die doppelte 
Genauigkeit ist 8 (Das Doubleformat braucht 8 Bytes). 

Die Stringfunktionen benutzen ebenfalls den Zwischenspeicher X 
und belegen ihn aber mit der Adresse des Str ingvektors . 


Soll nun z.3 die Wurzel einer SNG-Zahl errechnet werden, so muß 
man die 4 Bytes in den Zwischenspeicher X übertragen, den VT 
auf 4 setzen und kann dann die SQR-Routine aufrufen. Das Ergeb- 
nis steht dann ebenfalls wieder in X. 

Bei allen Routinen mit zwei Argumenten (Grundrechenarten und 
das Potenzieren) ist die Werteübergabe anders geregelt. 

Im Integer rormat werden die beiden 16Bit Werte in den Prozes- 
sorregistern DE und HL übergeben. Im Singl e f O’-mat wird das eine 
Argument in X und das andere in den beiden Prozessor registern 
BC und DE übergeben. B enthält dabei den Exponenten. C das MSB 
der Mantisse und DE die beiden anderen Mantissenbytes. Bei 
doppelter Genauigkeit wird der Zwischenspeicher Y für die Auf- 
nahme des zweiten Arguments benutzt. In allen Fällen befindet 
sich nach der Ausführung der Rechenroutine das Ergebnis wieder 
im Zwischenspeicher X. 

Im ROM stehen nun folgende Rechenroutinen zur Verfügung: 

(X und y bezeichnen den jeweiligen Zwischenspeicher. BCDE die 
beiden Register BC und DE. (HL) die Adresse des Wertes und 
(SP) daß sich der Wert im Stack befindet) 
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Umwandt ungsrout inen zur Ein- und Ausgabe 


Jeder Zahlenwert muß von der 'externen' in die 'interne' Dar- 
stellung verwandelt werden. Eine vom Benutzer eingegebene Zahl 
sieht der Computer nämlich nicht als Oezimalzahl. sondern als 
die Werte der einzelnen Ziffern nach dem ASCII-Code. Oie '1' 
einer Zahl stellt demnach für den Computer nicht den Wert 1 
dar. sondern den Wert des Zeichens *1’, also 48 Cvgl. ASCII- 
Tabel le) . 

Für die Umwandlung vom externen C ASC I I -) Format zum internen 
Binär format stehen im ROM verschiedene Routinen zur Verfügung. 

Für die Eingabe: 

0E6CH Umwandlung einer Zeichenkette bestehend aus 

Ziffernzeichen. Vorzeichen ('+' oder '-'3. 
Dezimalpunkt. Exponentenangabe C’E’ oder ’D'3 und 
einer Typangabe C'X'. * •* oder '«’) 

Ergebnis in X 

1E5AH Umwandlung einer Zeichenkette. Ergebnis im HL- 

Register . C Für Zeilennummer und MEM SIZE-Abf rage) 


Für die Ausgabe: 

OFAFH Ausgabe des Wertes im HL-Register (0 - 655353 

CFür Zeilennummern) 

OFBDH Umwandlung von X in einen unformatierten String 

ab 4130H CFür normales PRINT und STRS) 

OFBEH Umwandlung von X in einen formatierten String 

ab 4130H CFür PRINT USING) 

Durch einen CALL 28A7H im Anschluss an die Umwandlungsroutinen 
OFBDH und OFBEH wird der erzeugte String ausgegeben. 
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weitere Hilfsroutinen 


Adresse Funktion 

der Routine 

09A4H CSP) « X CSNG) 

X in den Stack retten 

09B1H X * BCDE = CHL) CSNG) 

X und BCDE mit den ab CHL) stehenden 4 Bytes laden 

09B4H X = BCDE CSNG) 

BCDE in X abspeichern 

09BFH BCDE * X CSNG) 

BCDE mit X laden 

09C2H BCDE = CHL) CSNG) 

BCDE mit den ab CHL) stehenden 4 Bytes laden 

09CBH CHL) « X CSNG) 

X in CHL) bis CHL + 3) abspeichern 

09F4H X « Y CDBL) 

09F7H X =■ CHL) CSNG oder DBL je nach VT) 

X mit den ab CHL) stehenden 4 oder 8 Bytes laden 

09FFH CHL) * X CSNG oder DBL je nach VT) 

X in CHL) bis CHL + 3 C7) ) abspeichern 

0A9AH X = HL C INT) 

Kopiert den Integerwert in HL nach X 
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Mathematische Funktionen 


Adresse 

Ausgeführte Rechnung 

Genauigkeit 

der Routine 



des 

Arguments 

0977H 

X 

» ABS 

X ) 

INT. 

SNG. 

DBL 

15BDH 

X 

- ATN 

X ) - 

INT 

SNG. 

DBL 

OABDH 

X 

- CDBL 

C X ) 

INT. 

SNG. 

DBL 

0A7FH 

X 

- CINT 

C X ) 

INT 

SNG. 

DBL 

0AB1H 

X 

» CSNG 

( X ) 

INT 

SNG. 

DBL 

1541H 

X 

- COS 

X ) 

INT 

SNG. 

DBL 

1439H 

X 

- EXP 

X ) 

INT 

SNG. 

DBL 

0826H 

X 

- FIX 

C X ) 

INT 

SNG. 

DBL 

0B37H 

X 

« INT 

X ) 

INT 

SNG. 

DBL 

0809H 

X 

- LOG 

C X ) 

INT. 

SNG. 

DBL 

14C9H 

X 

« RND 

C X ) 

INT. 

SNG. 

DBL 

098AH 

X 

- SGN 

C X ) 

INT, 

, SNG. 

DBL 

1547H 

X 

- SIN 

C X ) 

INT. 

SNG. 

DBL 

13E7H 

X 

- SOR 

( X ) 

INT, 

. SNG. 

DBL 

15A8H 

X 

■ TAN 

C X ) 

INT. 

. SNG. 

DBL 

Test- una 

Vergl 

eichsr< 

out inen 





CCP bedeutet Compare wie im 280 Assembler) 


Adresse Operation 

der Routine 

0020H Testet den VT 

0A09H VT auf INT setzen 

OAEFH VT auf SNO setzen 

OAECH VT auf DBL setzen 

0994H A - SGN ( X ) 

099BH A » SGN C X ) 

0955H A » SGN C X ) 

0018H CP HL . DE 

OAOCH CP X . BCOE 

0A39H CP HL . DE 

0A4FH CP X . V 

0A78H CP V . X 


Genauigkeit 
des Arguments 


INT. SNG. DBL 
INT 

SNG. DBL 
— (Register) 


SNG 

INT 

DBL 

DBL 


Genauigkei t 
des 

Ergebnisses 


SNG 

DBL 

INT 

SNG 

SNG 

SNG 


SNG 

SNG 

INT 

SNG 

SNG 

SNG 


Ergebnis 


A-Register 

A-Register 

A-Register 

A-Register 

A-Register 

A-Register 

A-Register 

A-Register 
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Grundrechenart ei 


Adresse Ausgeführte Rechnung Genauigkeit 

der Routine 


0B2DH 

0BC7H 

0BF2H 

*4*0 H 


X « DE + HL 
X * DE - HL 
X * DE * HL 
X > DE / HL 


INT 

INT 

INT 

INT 


0716H 

0713H 

0847H 

08A2H 


X = BCDE X 
X > BCDE - X 
X * BCDE * X 
X = BCDE / X 


SNG 

SNG 

SNG 

SNG 


0C77H X - X + Y 
0C70H X » X - Y 
CDA 1 H X « X * Y 
0DE5H X - X / Y 


DBL 

DBL 

DBL 

DBL 


093EH 

0E4DH 

OFOAH 


X * X * 10 
X ■ X * 10 
X - X * 10 


SNG 

DBL 

SNG. DBL 


0897H 

OODCH 

0F18H 


X - X / 10 
X * X / 10 
X ■ X / 10 


SNG 

DBL 

SNG. DBL 


0708H 

070BH 

0710H 

08A0H 


X - X + 1/2 
X - CHL) + X 
X * (HL) - X 
X - CSP) / X 


SNG 

SNG 

SNG- 

SNG 


097BH X * -X 


INT. SNG. DBL 



Verwendete Schreibweise 


A.B.C.D.E 
H . L . BC . DE 
HL. IX. IY. 
SP. PC 

BCDE 

X 

Y 

Exp CX) 
Exp CY) 
Exp 
Sign 
VT 

ZP 
ZN 
PTZ 
A= B 
A: B 
A.n 
I : 

0 : 

UPRO 


Bezeichnung der entsprechenden Z80-Register 

Zusammenfassung des BC und DE Registers zur 
Aufnahme eines Wertes einfacher Genauigkeit 

Zwischenspeicher X (ab 411DH) 

Zwischenspeicher Y Cab 4127H) 

Exponent des Wertes im Zwischenspeicher X 

Exponent des Wertes im Zwischenspeicher Y 

Exponent eines Fließkommawertes 

Vorzeichen 

Var iablentyp 

(02 = INT. 03 = STR. 04 = SNG . 08 * DBL ) 
Zeilenpointer, C= Link) 

Zei l ennummer 
P r og r amm t ex t Zeiger 
A ist gleich B 

A erhalt die Adresse von B CA 'zeigt' auf B) 

Bit n des Registers A (andere Register entsprechend) 

Liste der Eingabeparameter 

Liste der Ausgabeparameter 

Unterprogramm 

□er Befehl ist unbenutzt 

Das folgende Byte ist doppelt verwendet 
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: Start des BASIC-Interpreter ROMs 

; Einsprung bei OOOOH nach Einschalten des Geräts oder nach <RESET>-<R> 
: Kaltstart 


0000 F3 

0001 AF 

0002 C37406 

DI 

XOR 

CP 

A 

0674H 

Interrupts sperren 
A-0 

Weiter bei 0674H 


0005 C30040 

CP 

4000H 



0008 C30040 

CP 

4000H 

RST 08H : Sprung nach 4000H 
von dort weiter bei 1C96H 

und 

OOOB El 
OOOC E9 

POP 

CP 

HL 

(HL) 

" 


0000 C 30000 

CP 

OOOOH 



0010 C30340 

CP 

4003H 

RST 10H: Sprung nach 4003H 
von dort weiter bei 1D78H 

und 

DCB-Aufruf Eingabe CAF. OE) 

I : DE » DCB-Adresse 

0: A * Eingegebenes Byte 




0013 CS 

0014 0601 
0016 182E 

PUSH 

LD 

CR 

BC 

B.01H 

0046H 

BC retten 
DCB-Typ : Eingabe 
und DCB auf rufen 


0018 C30640 

CP 

4006H 

; RST 18H: Sprung nach 4006H 
: von dort weiter bei 1C90H 

und 

OCB-Au f ru f Ausgabe CAF 
I : DE * DCB-Adresse 
A = Auszugebendes 

0: - 

.DE) 

Byte 




00 1B CS 
001C 0602 
00 iE 1826 

PUSH 

LO 

CR 

BC 

B.02H 

0046H 

BC retten 
DCB-Typ: Ausgabe 
und DCB auf rufen 


0020 C30940 

CP 

4009H 

; RST 20H : Sprung nach 4009H 
: von dort weiter bei 25D9H 

und 

DCB-Aufruf Ein- und Ausgabe 
I : DE * DCB-Adresse 

0: 7 

CAF. DE) (unbenutzt) 


0023 C5 

0024 0604 
0026 1 8 IE 

PUSH 

LD 

CP 

BC 

B . 04H 
0046H 

BC retten 

DCB-Typ: Ein- und Ausgabe 
und DCB aufrufen 
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0028 C30C40 


400CH 


RST 28H : Sprung nach 400CH 
CBreak-Vektor . freigehalten für 
DOS 


DP 


Hole Byte von Tastatur CAF.DE) 

I: - 

0: A = ASCII-Code der gedrückten Taste oder 00H wenn keine Taste gedrückt 


002B 111540 
002E 1 8E3 


LD DE.4015H : DE * Adresse des Tastatur OCBs 

DR 0013H ;weiter bei 0013H 


0030 C30F40 


DP 400FH : RST 30H : Sprung nach 400FH 

: ( f reigehal ten für DOS) 


Ausgabe eines Bytes auf den Bildsc.hirm CAF.DE) 
I: A ■ ASCII-Code des darzustellenden Zeichens 
0 : - 

0033 U1D40 
0036 18E3 


0038 C31240 

; C Interrupt— Vektor . freigehalten 
: für DOS) 


DE. 401 DH 
001BH 


:DE» Adresse des Bildschirm OCBs 
iweiter bei 001BH 


: RST 38H : Sprung nach 4012H 


Ausgabe eines Bytes auf den Orucker CAF.DE) 
I: A « ASCII-Code des zu druckenden Zeichens 
0 : - 


003B 112540 

LD 

DE.4025H 

:0E= Adresse des Drucker DCBs 

003E 18DB 

DR 

001BH 

:weiter bei 001BH 

0040 C3D905 

DP 

05D9H 

:Eingabe einer Zeile 




: Cs iene 0509H) 

0043 C9 

RET 


. -_ 

0044 00 

NOP 



0045 00 

NOP 



0046 C3C203 

DP 

03C2H 

;Sprung zum DCB-Aufruf 

Warte auf Tastendruck 

CAF.DE) 



0: A - ASCII-Code der 

gedrückten Taste 


0049 CD2B00 

CALL 

002BH 

:Hole Byte von Tastatur 

004C B7 

OR 

A 

:Taste gedrückt? CA <> 0) 

0040 CO 

RET 

NZ 

:Da: Return 

004E 1 8F9 

DR 

0049H 

:Nein: Wiederhole die Routine 
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; Decodiertabel le Tür die Tastaturrout ine 
: BSC I I -Codes der entsprechenden Tasten 

0050 00 

0051 00 

0052 1F 

0053 1F 

0054 01 

0055 01 

0056 5B 

0057 1B 

0058 OB 

0059 1 B 
005B 08 
005B 18 
005C 09 
0050 19 
005E 20 
005F 20 


RETURN 

RETURN SHIFT 
CLEBR 

CLEBR SHIFT 
BREBH 

BREBK SHIFT 
HOCHPFEIL 
HOCHPFEIL SHIFT 
TIEFPFEIL 
TIEFPFEIL SHIFT 
LINKSPFEIL 
LINKSPFEIL SHIFT 
RECHTSPFEIL 
RECHTSPFEIL SHIFT 
LEERTBSTE 
LEERTBSTE SHIFT 


Warteschleife CBF.BC) 

I : BC = Zähler (Wartezeit » BC * 11.3 us (Mikrosekunden)) 
0 : - 


0060 OB 

0061 78 

0062 Bl 

0063 20FB 
0065 C9 


DEC BC 

LD B.B 

OR C 

DR NZ.0060H 

RET 


: BC * BC- 1 

:B und C«0° 

:Nein: weiterzählen 
; Ja : Fertig 


; RESET-E insprung (nach Drücken 
0066 01181B LD 

0069 C3CB05 JP 


der beiden RESET-Tasten) 
BC. 1B18H 
05CBH 


BC = Bdresse für Rücksprung ins 
BBS IC 

weiter bei 05CBH 


: Start 4 (Fortsetzung von 05C7H) 
: RBli auf BBS IC vorbereiten 


006C 31F841 
006F 118040 
0072 21F718 
0075 012700 
0078 C34001 


LD SP.41F8H 
LD DE.4080H 
LD HL.18F7H 
LD BC.0027H 
JP 0140H 


:Stackpointer setzen 
: ROM-Ber eich von 18F7H bis 191CH 
: i ns RBM von 4080H bis 40B6H 
: verschieben 
rweiter bei 0140H 


: Start 6 wenn keine ROn-Cassette mit einem Bas icprogramm vorhanden ist 
: (Fortsetzung von 0149H) 


007B 210158 

007E 3B80F8 
0081 CB4F 
0083 2009 
0085 22B440 
0088 CD4638 


LD 

LD 

BIT 

JR 

LD 

CBLL 


HL .5801H 

B. ( 0F880H ) 
01H.B 
NZ.008EH 
( 40B4H) .HL 
3846H 


:HL = Zeiger auf Bnfang des 
: BBS IC -Programms 

:(iOD SEL gedrückt 0 
: Ja : weiter bei 008EH 
: Programmstart Bdresse speichern 

: FCLS 
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Start 6 wenn eine ROfl-Casset te »it einem Bas icprogramm vorhanden ist 
(Fortsetzung von 014CH) 


008B 228440 
008E 21E541 

0091 363R 

0093 23 

0094 70 

0095 23 

0096 362C 

0098 23 

0099 22R740 

009C 113B01 
009F 06 IC 
00R1 215241 


00R4 36C3 
0086 23 
00R7 73 

0088 23 

0089 72 
0088 23 
008B 1 0F7 


0080 0615 
008F 36C9 
00B 1 23 
00B2 23 
00B3 23 

OOB4 10F9 
00B6 288440 
00B9 2B 
00B8 70 
OOBB CD7038 
OOBE CD8F1B 
00C1 CD8F06 
00C4 CDC901 
00C7 211801 
00C8 CD8728 
OOCD CDB31B 

00D0 38F5 

0002 07 

0003 97 

0004 2013 


LD 

LO 

LO 

INC 

LO 

INC 

LD 

INC 

LD 

LD 

LD 

LD 


LD 

INC 

LD 

INC 

LD 

INC 

D3NZ 


LD 

LD 

INC 

INC 

INC 

D3NZ 

LD 

DEC 

LD 

C8LL 

C8LL 

C8LL 

C8LL 

LD 

C8LL 

C8LL 

3R 

RST 

OR 

3R 


C4084H3 .HL 
HL.41E5H 

(HL) . 3RH 
HL 

(HL) .B 
HL 

(HL) . 2CH 
HL 

(4087H) .HL 

DE.013BH 
B. ICH 
HL.4152H 


(HL) . 0C3H 
HL 

(HL) .E 
HL 

CHL) .0 
HL 

0084H 


B. 15H 
(HL) . 0C9H 
HL 

HL 

HL 

008FH 

HL. C4084H) 
HL 

(HL) .B 

3870H 

1B8FH 

068FH 

01C9H 

HL .01 18H 

2887H 

1BB3H 

C. 00C7H 

10H 

8 

NZ.00E9H 


: Programmstartadresse speichern 
: HL : Start des Zei lenbuf fers-3 
.•Start markieren: 


: OOH 


:Buf feradresse speichern 
:0isk Basic Vektoren sperren 
:0E * 8dresse der Feh l er rout i ne 
:B - Zähler (28 Vektoren) 

: HL : Vektortabelle im R8M 
:Vektoren aufbauen: 

: 28 mal 3P 013BH ins R8M setzen 
: C3H - 3P 

: LSB der Adresse 

: MSB der 8dresse 

snächsten Vektor 

:Weitere Vektoren durch einsetzen 
:von C9H (=RET) sperren 
:21 Vektoren 
: C9H einsetzen 

:und 2 Bytes freilassen, damit 
: der RET-Befehl in einen 
:0P-Befehl geändert werden kann 
:nächsten Vektor 
: HL : Start des BRSIC-Programms 
: HL -1 

: St art - 1 mit OOH markieren 
; CRTC initialisieren 
:Stackpointer setzen 
:R0f1-Casset te vorhanden 
; CLS 

: HL * Text ’ MEM SIZE' 

: Text anzeigen 
:'? ' ausgeben und 
:auf Eingabe warten 
: BRERK gedrückt ? 

:3a: Eingabe wiederholen 
: Erstes Zeichen <> * ' nach 8 

iZeichen = OOH ? 

:( -RETURN' gedrückt *>) 

:Nein: Zahl eingegeben 
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0006 

0009 

00DA 

OODB 

OOOC 

OODE 

OOOF 

OOEO 

00E1 

00E2 

OOE3 

00E4 


LD HL.4000H 

INC HL 

LD A.H 

OR L 

DR Z.OOFRH 

LD A.(HL) 

LD B.R 

CPL 

LD ( HL ) . R 

CP (HL) 

LD ( HL ) . B 

DR Z.0009H 


00E6 25 DEC H 

OOE7 1811 DR OOFa'h 


Zahl bei MEM SIZE-Frage eingegeben 


00E9 CD5R1E 
OOEC B7 
OOED C29719 
OOFO EB 
OOF 1 2B 
00F2 3E8F 
00F4 46 
OOF5 77 
00F6 BE 
00F7 70 
00F8 20CD 


CRLL 1E5RH 

OR ft 

DP NZ.1997H 

EX DE. HL 

DEC HL 

LD ft , 8FH 

LD B.CHL) 

LD (HL). ft 

CP (HL) 

LD (HL).B 

DR NZ.00C7H 


: Da : HL : Start des RftMs 
: HL +1 

: HL ■ 0000 ? 

:Cgesamten Speicher getestet) 

: Da : weiter bei OOFAH 

:Hole Byte aus Speicher 

:Byte retten 

:ft komplementieren 

:und abspeichern 

:steht es auch im RAM * 

;alten Wert zurück 

:Da: nächstes Byte 

.•Nein: HL = Endadresse des 

Speichers + 1 

: 256 Bytes abziehen Tür 

: SHAPE -Tabe l le 

: we i t er bei OOFAH 


.•Eingegebene Zahl auswerten 
:wurden nur Ziffern eingegeben ? 
:Nein: SN-Error 

: HL » MEM SIZE - 1 

:ft * Testbyte 

:alten Wert retten 

:Testbyte nach (HL) schreiben 

:Steht es auch dort ? 

:alten Wert zurück 
: Nei n : MEM SIZE neu abfragen 


Speichergrenzen festlegen: 

HL * Adresse des höchsten verfügbaren Speicherpl atzes + 1 


OOFA 2B 
OOFB 111444 
OOFE DF 
OOFF DA7A19 
0102 UCEFF 
0105 22B140 

0108 19 

0109 22A040 

010C CD4D1B 
010F 212101 
0112 CDA728 
0115 C3191A 


DEC 

LO 

RST 

DP 

LD 

LD 

ADD 

LD 

CALL 

LD 

CALL 

DP 


HL 

DE.4414H 

18H 

C. 197AH 
DE . OFFCEH 
(40B1H) .HL 
HL. DE 

( 40A0H ) .HL 

1B4DH 

HL.0121H 

28A7H 

1A19H 


: HL -1 
: DE * 4414H 

:HL und OE vergleichen 
:OM-Error wenn MEM SIZE < 4414H 
; DE « -50 

: TOPMEM abspeichern 
: HL » HL + C - 50) : CLEAR 50 
: Anrangsadresse des 
:Str ingspeichers retten 
: NEW und CLEAR aus führen 
: HL : Text 'COLOUR BASIC' 

:Text ausgeben 

:und ins BASIC springen 
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Texte : 


0118 4D ; ' MEM SIZE' 

0119 45 
OHA 4D 
01 1B 20 
OUC 53 
01 ID 49 
OHE 5A 
01 1 F 45 

0120 00 


0121 43 

0122 4F 

0123 4C 

0124 4F 

0125 55 

0126 52 

0127 20 

0128 42 

0129 41 
012A 53 
012B 49 
012C 43 
0 1 20 OD 
012E 00 


; 'COLOUR BASIC' 


012F FF 

0130 FF 

0131 FF 


RST 38H 
RST 38H 
RST 38H 


X * CHECK C Bitnummer . Adresse ) 


0132 C36B01 DP 016BH 

SET Bitnummer , Adresse 

0135 C34F01 DP 014FH 

RESET Bitnummer . Adresse 

0138 C35D01 DP 015DH 


; weiter bei 016BH 


: wei ter bei 014FH 


weiter bei 015DH 


Einsprung bei gesperrten Disk Basic Vektoren 


013B 1E2C 
0130 C3A219 


LD E.2CH 

DP 19A2H 


E * Fehlercode für SN-Error ohne 
EDIT-Auf ruf 

und zur Errorroutine springen 
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Start 5 (Fortsetzung von 0078H) 


0140 EOBO 
0142 2101C0 
0145 3R00C0 

0148 B7 

0149 C27B00 
014C C38B00 

Fortsetzung der SET-I 

014F CD8301 
0152 3E01 

0154 07 

0155 10F0 

0157 OF 

0158 47 

0159 IR 
0159 BO 
0 15B 12 
015C C9 


LDIR 

LD HL.0C001H 

LD R.(OCOOOH) 

OR R 

3P NZ.007BH 

OP 008BH 

itine von 0135H 

CRLL 0183H 

LD R.01H 

RLCR 

D3NZ 0154H 

RRCR 

LD B.R 

LD R.(DE1 

OR B 

LD (DE).R 

RET 


Fortsetzung der RESET-Rout Ine von 0138H 


015D CD8301 
0160 3EFE 

0162 07 

0163 10FD 
0165 OF 


CRLL 0183H 

LD R.OFEH 

RLCR 

D3NZ 0162H 

RRCR 


0166 47 

0167 IR 

0168 RO 

0169 12 
016R C9 


LD B.R 

LD R.(DE) 

RND B 

LD CDE1.R 

RET 


Fortsetzung der CHECK-Rout ine von 0132H 


016B D7 
016C CF 
016D 28 
016E CD8301 

0171 E5 

0172 IR 

0173 1F 

0174 10FD 
0176 21FFFF 

0179 3801 
0173 23 
017C CD9R0R 
017F El 

0180 CF 

0131 29 

0132 C9 


RST 10H 

RST 08H 

DEFB ’(' 

CRLL 0183H 

PUSH HL 

LD R.CDEJ 

RRR 

D3NZ 0173H 

LD HL.OFFFFH 

OR C.017CH 

INC HL 

CRLL 0R9RH 

POP HL 

RST 08H 

DEFB ' ) ' 

RET 


: Verschiebung ausführen 
: HL - Zeiger auf ROM-Cassette 
; ROM-Casset te mit Bas icprogramm 
: vorhanden ? 

: Neins weiter bei 007BH 
:3a: weiter bei 008BH 


sBitnr. und Rdresse holen 
: R - Maske für Bit setzen 
: verschiebe R bis gewünschtes 
.-Bit in R gesetzt 
sein Bit zurück. 

:da B » Bitnr. + 1 war 

sMaske nach B 

:Byte aus Speicher holen 

:Bit einblenden 

sund zurückschreiben 


Bitnr. und Rdresse holen 
:R = Maske für Bit löschen 
verschiebe R bis gewünschtes 
: Bi t in R rückgesetzt 
ein Bit zurück. 

: da B * Bitnr. + 1 war 
;Maske nach B 
Byte aus Speicher holen 
: Bi t ausblenden 
und zurückschreiben 


sZeichen nach 'CHECK' in R 
sKlammer auf "> 
ssonst SN-Error 
sBitnr. und Rdresse holen 
: PTZ retten 

: Byte aus Speicher holen 
:und gewünschtes Bit ins 
:Carry-Flag setzen 
:HL * -1 (für Bit gesetzt ) 

: Sprung wenn Bit gesetzt 
: sonst HL » 0 (Bit gelöscht! 
: HL als INT nach X schreiben 
: PTZ zurück 

:Klammer geschlossen ? 
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UPRO für SET. RESET und CHECK 

Bitnummer und Adresse aus Programmtext holen 
I : HL - PTZ 
0: B » Bitnummer + l 
OE = Adresse 


0183 CD1C2B 
0186 FE 08 
0188 024R1E 
018B F5 
018C CF 
018D 2C 
018E CD022B 

0191 Fl 

0192 47 

0193 04 

0194 C9 


CRLL 2B1CH 

CP 08H 

3P NC.1E4RH 

PUSH RF 

RST 08H 

DEFB 

CRLL 2B02H 

POP RF 

LD B.R 

INC B . 

RET 


:Bitnummer nach R 
igrösser als 7 ? 

:3a: FC-Error 
:Bitnr. retten 
:Beide Zahlen durch Komma 
: getrennt ? 

:Rdresse nach DE 
:Bitnr. zurück 

:B ■ Bitnr. + 1 


0195 FF 

0196 FF 

0197 FF 

0198 FF 

0199 FF 
019R FF 
019B FF 
019C FF 


RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 


: x 


INKEYS 


0190 07 
019E E5 
019F 3R9940 
01R2 B7 
01R3 2006 
01R5 CD5803 
01R8 B7 
01R9 2811 
01RB F5 
01RC RF 
01RD 329940 
01 BO 3C 
01B1 CD5728 
01B4 Fl 
01B5 2R0440 


01B8 77 
01B9 C 38428 


RST 

PUSH 

LO 

OP 

3R 

CRLL 

OR 

3R 

PUSH 

XOR 

LD 

INC 

CRLL 

POP 

LO 

LD 

3P 


10H 

HL 

R. C4099H) 

R 

NZ.01RBH 

0358H 

R 

Z.01BCH 

RF 

R 

C4099H) .R 
R 

2857H 

RF 

HL. C4004H) 

CHL) .R 
2884H 


: PTZ auf nächstes Zeichen 
.•und retten 

: ist schon vorher eine Taste 
: gedrückt worden ? 

:3a: Wert übergeben und zurück 
:Nein: 3etzt Taste gedrückt ? 

.•Nein: Nullstring als Ergebnis 
:Tastencode retten 
: Letzten Tastencode löschen 

:Ein Byte im Stringspeicher 
: reservieren 
: Tastencode zurück 
: HL : Speicherplatz für neuen 
:String 

:Zeichen abspeichern 
.-und VT auf STR setzen 
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: Heine Taste gedrückt 
; Nullstring als Ergebnis übergeben 


01BC 212819 
01BF 222141 
01C2 3E03 
01C4 32AF40 
01C7 El 
01C8 C9 


LD HL.1928H 

LD C4121HD.HL 

LD A.03H 

LD C40AFH1.A 

POP HL 

RET 


: CLS 


01C9 3E1C 
0 1 CB CD3R03 
OlCE 3E1F 
0100 C33R03 


LD R.1CH 
CRLL 033RH 
LD A.1FH 
OP O330H 


: RANDOM 


01D3 ED5F 
01D5 32AB40 
01D8 C9 


LD A.R 

LD C 40ABH ) , A 

RET 


: Pegelwechsel an Casset tenpor t ausgeben 


01D9 3A1C43 
01DC EE01 
01 DE D3FF 
01E0 321C43 
01E3 C9 


LD A.C431CH) 

XOR 01H 

OUT COFFHKA 

LD C 43 ICH 1 , A 

RET 


01E4 3A2744 


LD A.C4427H) 


01E7 EEOA 
01E9 322744 
01EC C9 


XOR OAH 

LD C4427H3.A 

RET 


; HL : Nullstring 
:als Ergebnis setzen 
: VT auf STR 

: PTZ zurück 


;Cursor HOME 

:Bi Idschir* bis zum Ende löschen 


: Refresh-Register nach A 
:und im RAM ab legen 


: A - letzter Wert 
: Bi t 0 wechseln 
:und ausgeben 

:neuen Wert zurückschreiben 


oder ' ' aus Bildschirm- 

speicher holen 

und ' ’ vertauschen 
neues Zeichen zurückschreiben 


Ein Byte von Cassette lesen CAFD 
I : - 

0: A = gelesenes Byte 


0 1 ED C9 
01EE 0608 
01 FO 1600 
01 F2 CDFA01 
01F5 10FB 
01F7 TA 
01F8 D9 
01F9 C9 


EXX 

LD B.08H 

LD D.OOH 

CALL 01FAH 

D3NZ 01F2H 

LD A.D 

EXX 
RET 


:Registersatz vertauschen 

:8 Bits werden gelesen 

:Byte auf OOH setzen 

;Ein Bit lesen und in D schieben 

: nächstes Bit 

:komplettes Byte in A 

:alte Register wiederherstellen 


39 



Ein Bit von Cassette lesen und in 0 schieben 


0 1 FA C 5 

01FB OBFF 
01 FD ESO 1 
01 FF 5F 
0200 DBFF 
0202 E601 

0204 AB 

0205 1F 

0206 30F8 

0208 3C 

0209 AB 
020A 5F 
020B 3A1243 
020E 47 
020F 10FE 
0211 DBFF 
0213 E60 1 
0215 AB 


0216 CB22 

0218 B2 

0219 57 
021 A CI 
02 1B C9 


PUSH BC 

IN A.COFFH) 

AND 01H 

LD E.A 

IN A.COFFH) 

AND 01H 

XOR E 

RRA 

3R NC.0200H 

INC A 

XOR E 

LO E.A- 

LD A.C4312H) 

LD B.A 

D3NZ 020FH 

IN A.COFFH) 

AND 01H 

XOR E 


SLA D 

OR D 

LD D.A 

POP BC 

RET 


:BC C Zähler) retten 
;Auf Zeitimpuls warten: 

:Port FFH abfragen 

: Pegel ausmaskieren 

;und in E speichern 

:Port FFH abfragen 

: Pegel ausmaskieren 

:und mit letztem Wert vergleichen 

:Ergebnis ins Carry-Flag schieben 

.-und auf Pege l Änderung warten 

: CClock-Impuls suchen) 

: A ■ 1 C wegen AND 01H und RRA) 

:A « neuer Pegelwert 
;in E abspeichern für Vergleich 
: A » Wert für Zeitschleife 
;nach B 

:und B runterzahlen 

:3etzt neuen Pegelwert holen 

:und mit altem Wert vergleichen 

:A ist 1 wenn ein Pegelwechsel 

rerkannt wurde 

:D verschieben 

: neuen Wert einblenden 

:und in D abspeichern 

.•Zähler züruckholen 


1 Zweimal dasselbe Byte auf Cassette schreiben 


02 1 C CD1F02 


CALL 021 FH 


:Erstes Byte schreiben 


Ein Byte auf Cassette schreiben CAF) 
I: A = zu schreibendes 8yte 
0: A - geschriebenes Byte 


021 F 
0220 
0221 

0223 

0224 
0227 
022A 
022B 
022D 
022E 
022F 
0230 


CD0901 

3A1043 


10FE 

7A 

07 

57 


□CD901 


EXX 

PUSH AF 

LO C.08H 

LD D.A 

CALL 01D9H 

LD A.C4310H) 

LD B.A 

03NZ 022BH 

LD A.D 

RLCA 

LD D.A 

CALL C.01D9H 


:Register retten 
;Byte retten 
: 8 Bits schreiben 
:0 * Byte 

jClockimpuls ausgeben 

:Erste Warteschleife ausführen 


: A ■ Byte 

:nächstes Bit nach Carry schieben 
: und verschobenen Wert nach D 
: Pegel Wechsel ausgeben wenn 

:9it * 1 
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0233 3RU43 

0236 47 

0237 10FE 
0239 00 
023R 20E8 
023C Fl 
0230 09 
023E C9 


LD R.C43UH) 

LO B.R 

DONZ 0237H 

DEC C 

JR NZ.0224H 

POP RF 

EXX 
RET 


;zweite Warteschleife 


:Bitzähler runterzählen 
; nächst es Bit ausgeben 
:Byte zurück nach R 
:Register wiederherstellen 


Leader und Sync auf 

023F 06FF 
0241 3ERR 
0243 CD1F02 
0246 1 OFB 
0248 3E66 
024R 18D3 


Cassette schreiben 

LD B.OFFH 

LD R.ORRH 

CRLL 021 FH 

DONZ 0243H 

LD R . 66H 

OR 021 FH 


: 255 mal 

:das Byte RRH 

:auf Cassette schreiben 

: Sync ■ 66H 

:auf Cassette schreiben 


Leader und Sync suchen 


024C E5 PUSH 

0240 D5 PUSH 

024E C5 PUSH 

024F 216935 LD 

0252 110000 LD 

0255 3R2340 LD 

0258 5F LD 

0259 19 RDD 

025R 7E LD 

025B 3226F0 LD 

025E 3227F0 LD 

0261 01RR80 LD 

0264 CDFR01 CRLL 

0267 B9 CP 

0268 20F7 OR 

026R 3EFF LO 

026C R9 XOR 

026D 4F LD 

026E 1 0F4 DONZ 

0270 CDFR01 CRLL 

0273 FE66 CP 

0275 20F9 OR 

0277 3E2R LD 

0279 322644 LO 

027C 322744 LD 

027 F CI POP 

0280 Dl POP 

0281 El POP 

0282 CS RET 


HL 

DE 

BC 

HL.3569H 
DE.OOOOH 
R. C4023H) 
E.R 
HL. OE 
R. (HL) 
C0F026H) .R 
C0F027H) . R 
BC . 80RRH 
01FRH 

C 

NZ . 026 1H 

R.OFFH 

C 

C.R 


:Register retten 
: (mit PUSH, da EXX bei 01EDH 
gebraucht wird) 

: HL : Farbcode Tabelle 
; OE = OOOOH 

:R = Jetziger Farbcode 

:DE ■ Offset zum Tabellenwert 

: HL = Zeiger zum Farbcode 

:R = Farbcode aus Tabelle 

: für beide Sterne 

:im Farbspeicher ablegen 

:B = Zähler. C = gesuchtes Byte 

:Ein Bit von Cassette lesen. 

:in 0 schieben und nach R laden 
:Byte gefunden ? 

:Nein: Suche neu beginnen 
:0a: Rlle Bits in C umkehren 
:also jetzt nach 55H suchen 


0264H 

01FRH 

66H 

NZ.0270H 

R.2RH 

C4426H) , R 

(4427H) .R 

BC 

DE 

HL 


: wei tersuchen bis 128 mal RRH 

: gefunden wurde 

:Oetzt Sync C66H) suchen 

: gefunden 7 

:Nein: weitersuchen 

:0a: Zwei Sterne in rechter 

:Bi l dschi rmecke 

:anzeigen 

:Register zurück 
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0283 FF 

0284 FF 

0285 FF 

0286 FF 

0287 FF 

0288 FF 

0289 FF 
0288 FF 
0288 FF 
028C FF 
028D FF 
028E FF 
028F FF 

0290 FF 

0291 FF 

0292 FF 

0293 FF 

0294 FF 

0295 FF 

0296 FF 

0297 FF 

0298 FF 

0299 FF 
0298 FF 
0298 FF 
029C FF 
0290 FF 
029E FF 
029F FF 

0280 FF 

0281 FF 

0282 FF 

0283 FF 

0284 FF 

0285 FF 

0286 FF 

0287 FF 

0288 FF 

0289 FF 
0288 FF 
0288 FF 


RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H ' 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 

RST 38H 
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Startadresse des geladenen Programms vom Band lesen C für SYSTEM) 


02AC CD 1403 
02AF 22DF40 

SYSTEM 


CALL 0314H : 2 Bytes CStartadresse) lesen 

LO C400FH).HL ; und abspeichern 


02B2 CDE241 
02B5 318842 

02B8 C0FE20 
02BB 3E2A 
02BD CD2A03 
02C0 CDB31B 
02C3 0A6600 

02C6 D7 
02C7 CA9719 
02CA FE2F 
02CC 284F 
02CE CD4C02 
02D 1 CDED01 
0204 FE55 
02D6 20F9 
02D8 0606 
02DA 7E 
02DB B7 
02DC 2809 
02DE CDED01 
02E1 BE 

02E2 20ED 

02E4 23 
02E5 1 0F3 
02E7 CDE401 
02EFI CDED01 
02ED FE78 
02EF 28BB 

02F1 FE3C 
02F3 20F5 
02F5 CDED01 
02F8 47 
02F9 CD1403 
02FC 85 
02FD 4F 


CALL 41E2H 

LD SP.4288H 

CALL 20 FEH 

LD A.2AH 

CALL 032AH 

CALL 1BB3H 

JP C.0066H 

RST 10H 

3P 2.1997H 

CP 2FH 

3R Z.031DH 

CALL 024CH 

CALL 01EDH 

CP 55H 

3R NZ.02D1H 

LD B.06H 

LD A.CHL) 

OR A 

3R Z.02E7H 

CALL 01EDH 

CP CHL) 

3R NZ.02D1H 

INC HL 

D3NZ 02DAH 

CALL 01E4H 

CALL 01EDH 

CP 78H 

3R Z.02ACH 

CP 3CH 

3R NZ.02EAH 

CALL 01EDH 

LD B.A 

CALL 0314H 

ADD A.L 

LD C .A 


: DOS 

sStack in den Tastaturbuffer 
siegen, so daß er nicht stört 
sNeue Zeile beginnen 
sStern ausgeben 

sund nach Filename fragen 
.•Zurück ins BASIC wenn BREAK 
: gedrückt wurde 
serstes Zeichen holen 
:SN-Error wenn nichts eingegeben 
sist es ’/• ? 

;3a: weiter bei 031DH 
.•Nein: Leader und Sync suchen 
serstes Byte von Band holen 
sist es ein SYSTEM-Progr amm ? 
sNeins weitersuchen 
s6 Zeichen für Filename 
sZeichen aus Buffer holen 
sZeilenende gefunden 
:3as Programm laden 
sNeins Filename laden 
sund mit gesuchtem Namen 
: vergleichen 

s Gesuchtes File gefunden ? 
sNein: Nächstes File suchen 
s Da s Zeiger +1 

sund nächstes Zeichen vergleichen 

sRechten Stern blinken lassen 

s Bl ockmarkierung von Band lesen 

sEnde gefunden ? 

sJas Startadresse holen und 

swieder '*? * ausgeben 

s Blockanfang gefunden 

sNein: Neues Byte suchen 

sBlocklänge nach B 

sB * Anzahl der zu lesenden Bytes 

sund Adresse nach HL 

sPrüfsumme errechnen 

sund in C speichern 
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02FE C0ED01 

0301 77 

0302 23 

0303 81 

0304 4F 

0305 1 0F7 
0307 CDED01 
030 A 89 
030B 280A 

030D 3E43 
030F 322644 
0312 1 8D6 


CALL 01EDH 

LD CHL).A 

INC HL 

ADD A.C 

LD C.A 

D3NZ 02FEH 

CALL 01EDH 

CP C 

3R Z.02E7H 

LD A.43H 

LD C4426HD.A 

3R 02EAH 


:0Vte lesen 

:und abspeichern 

:Zeiger +1 

:Prüfsumme addieren 

:und nach C laden 

: nächst es Byte des Blocks laden 

: S l ock zu Ende: Prüfsumme holen 

:und mit C vergleichen 

: Prüsumme identisch ° 

:3a: nächsten Block laden 
: Ne i n : A - *C ' 

: Prüfsummenfehler anzeigen 
:aber trotzdem weiterladen 


UPRO für SYSTEM: 

Adresse CBlockadresse oder Startadresse) vom Band holen 

I : - 

0: HL » gelesene Adresse 


0314 CÜED01 

0317 6F 

0318 CDED01 
03 1B 67 
031C C9 


CALL 01EDH .-Adresse vom Band lesen 

LD L.A : LSB nach L 

CALL 01EDH 

LD H.A : MSB nach H 

RET 


: V* bei SYSTEM eingegeben 


03 ID EB 
03 IE 2ADF40 

0321 EB 

0322 D7 

0323 C45A1E 
0326 208A 

0328 EB 

0329 E9 


EX 

LD 

EX 

RST 

CALL 

3R 

EX 

3P 


DE. HL 

HL. C40DFH) 
DE .HL 
10H 

NZ. 1E5AH 
NZ.02B2H 

DE. HL 
CHL) 


: DE * Textzeiger 
:Startadresse nach 
: DE laden 

iMurde eine Startadresse 
: angegeben 7 

:3a: Neue Adresse nach DE 
: SYSTEM neu beginnen wenn 
:Blödsinn eingegeben wurde 
:sonst Adresse nach HL laden 
:und Ausführung beginnen 


Ausgabe von A auf Bildschirm. Drucker oder Cassette CAF.HL) 

I: A * ASCII -Code des auszugebenden Zeichens 

C409CH) ■ Ausgabeflag: 00H * Bildschirm. 01H ■ Drucker. 80H * Cassette 
0 : - 


032A C5 
032B 4F 
032C CDC141 
032F 3A9C40 

0332 B7 

0333 79 

0334 CI 

0335 036405 


PUSH BC 

LD C.A 

CALL 41C1H 

LD A.C409CH) 

OR A 

LD A.C 

POP BC 

OP 0564H 


: BC retten 
:Zeichen nach C 
: DOS 

:Flag testen 

:Zeichen zurück nach A 
: BC zurück 
: wei t er bei 0S64H 
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0338 FF 

0339 FF 


RST 

RST 


38H 

38H 


(40A6H) erhöhen 


: Ausgabe von A auf 

033A 09 
033B F5 
033C CD3300 
033F CD4803 
0342 32A640 

0345 Fl 

0346 D9 

0347 C9 


Bildschirm und POS 
EXX 

PUSH AF 

CALL 0033H 

CALL 0348H 

LO C 40A6H ) . A 

POP AF 

EXX 

RET 


:Regi5ter retten 
:Zeichen retten 
: Zeichen ausgeben 
; Neuen POS errechnen 
rund abspeichern 
.•Zeichen zurück 
rRegister zurück 


Neuen POS errechnen (AF.DE) 

I : - 

0: A = neuer POS-Wert 

— PTZ retten 

HL * Cursoradresse 
OE : Bi l dschi rmanf ang 
Carryflag auf 0 setzen 
weiter bei 0409H 


ojuö to 

0349 2A2040 
034C 110044 
034F B7 

0350 C 30904 


rusn 

LD HL.C4020H) 

LD DE.4400H 


0353 FF 

0354 FF 


RST 38H 

RST 38H 


: Neuen POS er rechen (wie 0348H) 


0355 C39D30 


3P 


3090H 


: weit er bei 3090H 


: Tastaturabfrage CAF) 

; (wie 002BH aber mit DOS und OE Rettung) 


0358 CDC441 
035B 05 
035C CD2B00 
035F Dl 
0360 C9 


CALL 41C4H 

PUSH DE 

CALL 002BH 

POP DE 

RET 


DOS 

;DE retten 
Tastaturabfrage 
:DE zurück 


Eingabe einer Zeile mit max . 240 Zeichen in den Zeilenbuffer (AF.DE.HL) 
I: - 

0: Carryflag = 1 wenn Break gedrückt wurde 


0361 AF 

0362 329940 
0365 32A640 
0368 CDAF41 
036B C5 
036C 2AA740 
036F 06F0 
0371 CDD905 

0374 F5 

0375 48 


XOR A 

LD ( 4099H ) , A 

LD ( 40A6H ) , A 

CALL 41AFH 

PUSH BC 

LD HL.C40A7H) 

LD B.OFOH 

CALL 05D9H 

PUSH AF 

LO C.B 


A « OOH 

Letzten Tastencode löschen 

POS auf 0 setzen 

DOS 

BC retten 
HL : Zeilenbuffer 
B « Maximale Zeichenzahl (240) 
:Zeile eingeben lassen 
Flags retten 

:C = Anzahl der eingegebenen 
Zeichen 
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0376 0600 


LD 

B.OOH 

B * 0 -> BC « Länge der Zeile 

0378 09 


OOD 

HL .BC 

HL zeigt auf letztes Zeichen 

0379 3600 


LD 

(HL) . OOH 

Zeile mit OOH abschl ießen 

037B 200740 


LD 

HL. (4007H) 

HL s Onfang des Zeilenbuffers 

037E Fl 


POP 

OF 

Flags zurück 

037F CI 


POP 

BC 

BC zurück 

0380 2B 


DEC 

HL 

HL - HL - 1 (für RST 10H) 

0381 D8 


RET 

C 

CY ■ 1 wenn Break gedrückt 

0382 0F 


XOR 

0 

CY » 0 

0383 C9 


RET 



Warten auf Tastendruck (OF) 



(wie 0049H aber 

mit 

DOS und 

DE Rettung) 


0384 CD5803 


COLL 

0358H 

Taste holen 

0387 B7 


OR 

0 

Neue Taste gedrückt ? 

0388 CO 


RET 

NZ 

Da: Rücksprung 

0389 1 8F9 


DR 

0384H 

Nein: Ouf Tastendruck warten 

Ousgaben auf Drucker 

abschl 

eßen (OF) 


0: OPOS - 0 





038B OF 


XOR 

0 

Nächste Ousgabe auf 

038C 329C40 


LD 

( 409CH ) .0 

Bildschirm bringen 

038F 309B40 


LD 

0. ( 409BH ) 

DPOS * 0 ? 

0392 87 


OR 

0 


0393 C8 


RET 

Z 

Da: Fertig 

0394 3E00 


LD 

O.ODH 

Nein: CR zum Drucker 

0396 D5 


PUSH 

DE 

DE retten 

0397 CD9C03 


COLL 

039CH 

CR ausgeben (Drucker auf neue 
Zeile bringen) 

0390 Dl 


POP 

DE 

DE zurück 

039B C9 


RET 



Ein Zeichen auf 

dem 

Drucker 

ausdrucken und Steuerzeichen abfangen 

039C F5 


PUSH 

OF 

Register retten 

039D D5 


PUSH 

DE 


039E C5 


PUSH 

BC 


039F 4F 


LO 

C.O 

Zeichen in C retten 

0300 1E00 


LD 

E .OOH 

E * OOH für evtl, neue DPOS 

0302 FEOC 


CP 

OCH 

Ist es Form Feed ? 

0304 2810 


DR 

Z.03B6H 

Da: DPOS auf 0 und Zeichen 
ausdrucken 

0306 FE 00 


CP 

OOH 

Ist es Line Feed ? 

0308 2003 


DR 

NZ . 0300H 

Nein: Weiterprüfen 

0300 3E0D 


LD 

0 , OOH 

Da: Umwandeln in ein 
Carriage Return 

030C 4F 


LD 

C.O 

und in C ab legen 
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03A0 

FEOD 

CP 

ODH 

:Ist es Carriage Return ? 

03AF 

2805 

OB 

Z.03B6H 

:0a: DPOS auf 0 und Zeichen 
: ausdrucken 

03B 1 

3A9B40 

LD 

A. C409BH) 

:Nein: DPOS holen 

03B4 

3C 

INC 

A 

:um eins erhöhen 

03B5 

5F 

LD 

E . A 

:und in E ab legen 

03B6 

7B 

LD 

A.E 

:Neuen DPOS abspeichern 

03B7 

329B40 

LD 

C409BH) .A 


03BA 

79 

LD 

A.C 

: Zeichen nach A 

03BB 

C03B00 

CALL 

003BH 

:und ausdrucken 

03BE 

CI 

POP 

BC 

:Register zurück 

03BF 

Dl 

POP 

DE 


03C0 

Fl 

POP 

AF 


03C1 

C9 

RET 



: DCB-Auf ruf C AF ) 

(siehe 0046H) 



; I: Fl 

= Zeichen 

(wenn Ausgabe) 



; B 

* DCB-Typ 




; DE * DCB-Adr 

esse 



; 0: Fl 

= Zeichen 

(wenn Eingabe) 



03C2 

E5 

PUSH 

HL 

:Register retten 

03C3 

DDE5 

PUSH 

IX 


03C5 

D5 

PUSH 

DE 


03C6 

DDE 1 

POP 

IX 

: IX * DCB-Adresse 

03C8 

05 

PUSH 

DE 

:Stack wieder richten 

03C9 

21D003 

LD 

HL.030DH 

: Returnadresse im Stack 

03CC 

E5 

PUSH 

HL 

:ablegen *• 

03C0 

4F 

LD 

C.A 

:Zeichen in C retten 

03CE 

1A 

LD 

A. (DE) 

:OCB-Typ von DCB holen 

03CF 

BO 

AND 

B 

:nicht benötigte Bits ausmaskiern 

03D0 

B8 

CP 

B 

:und mit angegebenem Typ 
: vergleichen 

03D1 

C23340 

OP 

NZ.4033H 

:Typ falsch: A auf OOH setzen 
:und zurück ins Programm 
:(4033H wird im DOS verwendet) 

03D4 

FE02 

CP 

02H 

: DCB-Typ => Ausgabe ? 

0306 

DD6E01 

LD 

L, ( IX+01H) 

: Adresse der DCB-Routine 

03D9 

DD6602 

LD 

H. ( IX+02H) 

:nach HL laden 

03DC 

E9 

OP 

(HL) 

;und Routine starten 

; Ende 

einer DCB- 

Rout ine 



03DD 

01 

POP 

DE 

:Register zurück 

03DE 

DDE 1 

POP 

IX 


03E0 

El 

POP 

HL 


03E1 

CI 

POP 

BC 


03E2 

C9 

RET 




? 3St 

sturrout ine 

(wird über DCB 

-Aufruf angesprochen) 

03E3 

CDAF06 

CALL 

06AFH 

:Ist ROH-Cassette vorhanden ° 
;Ca: AON -Programm starten 

03E6 

3A80F3 

LD 

A. C 0F98CH) 

: C^RL und MOD SEL gedrückt ~> 

03E9 

FE 12 

CP 

12H 


03EB 

20CD 

OR 

NZ.03FAH 

: Ne i n : weiter bei 03FAH 

03ED 

C0A938 

CALL 

38A9H 

:0a: C GR ausführen 

0 3 F 0 

3A40F3 

LD 

A . C0F940H) 

:9reak gedrückt ** 

03F3 

:357 

BIT 

02H..A 

03F5 

29F3 

OR 

Z. 03FOH 

:Nein: Auf Break warten 

03F ? 

CDB038 

CALL 

39B0H 

:0a: LGR aus führen 

03FA 

213640 

LD 

HL . 4036H 

47 

:HL : ZwischensDeicher 



03FD 0101F8 
0400 1600 

0402 0 A 

0403 5F 

0404 AE 


0405 73 

0406 A3 


0407 2010 


0409 14 
040A 2C 
040B C801 
040D 30F3 

040F 3A80F8 
0412 CB5F 
0414 C2D404 

0417 AF 

0418 C9 


LD 

LD 

LD 

LD 

XOR 


LD 

AND 


DR 


INC 

INC 

RLC 

DR 

LD 

BIT 

DP 

XOR 

RET 


BC . 0F801H 

D. OOH 
A. CBC) 

E. A 

C HL ) 


C HL I .E 
E 


NZ.0419H 


D 

L 

C 

NC .0402H 

A. C0F880H) 
03H . A 
NZ.04D4H 
A 


:BC : Erste Tastaturzeile 
:Zei lenzähler auf 0 setzen 
: A * Wert der Tastaturzeile 
: Wert ablegen 

:nur die Bits der Tasten auf 1. 
:die sich seid der letzten 
:Abfrage änderten 
:Neuen Zeilencode für nächsten 
;Aufruf abspeichern 
: Nur das Bit der Taste auf 1. 
;die seid der letzten Abfrage 
:neu gedrückt wurde 
:Wurde eine Taste neu gedrückt 
:Da: ASCII-Code der Taste 
: ermitteln 

.•Nein: Zeilenzähler +1 

:Buf ferzeiger +1 

;BC auf nächste Zeile erhöhen 

: War das schon die letzte Zeile 

;Nein: nächste Zeile prüfen 

: Da : Ist RPT gedrückt ? 

: Da : weiter bei 04D4H 
:Nein: Dann A auf OOH setzen 
;und zurück ins Programm 


0419 5F 

04 1A 211840 
04 ID 3A80F8 

0420 CB4F 
0422 C2C904 
0425 CB67 
0427 C2D004 
042A 3E07 


042C BA 
042D 28E8 


LD 

LD 

LD 

BIT 

DP 

BIT 

DP 

LD 


CP 

DR 


E.A 

HL .4018H 
A. C0F880H) 
01H . A 
NZ.04C9H 
04H . A 
NZ. 04DOH 
A.07H 


:Bit-Wert der Taste nach E 
: HL : Flagbyte 
: Ist MOD SEL gedrückt ? 

; Da : weiter bei 04C9H 
:Nein: Wurde CTRL gedrückt ? 
:Da: weiter bei 0400H 
:War die Taste in der letzten 
:Tastaturzei le und wurde noch 
:nicht abgefangen ? 

:CIst der Zeilenzähler » 7 ?) 
:Da: Die Taste war nur 'SHIFT' 
: C der Tastencode ist OOH) 
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042F 7A 

0430 07 

0431 07 

0432 07 

0433 57 

0434 0E01 

0436 79 

0437 A3 

0438 2005 

043A 14 


043B CB01 
0430 18F7 


LD A.O 

RLCA 

RLCA 

RLCR 

LD D.A 

LD C.01H 

LD R.C 

RND E 

3R NZ.043FH 

INC D 


RLC C . 

3R 0436H 


; mul t ipl iz iere D mit 8 
:* 2 
:* 2 
:* 2 

:da 8 Tasten pro Zeile vorhanden 
;sind 

: C * Maske Tür folgende Be- 
: rechnung 
: A - Maske 

:Tastencode maskieren 
: Taste neu gedrückt ? 

:3a: weiter bei 043FH 

:Nein: D erhöhen, um den Wert der 

:Taste in der Tastaturmatrix zu 

:ermitteln 

:Maske verschieben für 
:nächsten Test 


D gibt jetzt den Wert der Taste in der Tastaturmatrix an 

'§' hat den Wert 00H . *A' den Wert 01H usw. bis zur Leertaste mit 37H 


043F 3A80F8 

0442 47 

0443 7A 

0444 C640 


0446 FE60 
0448 3013 
044A CB08 

044C 3031 
044E C820 

0450 57 

0451 3A40F8 
0454 E610 

0456 7A 

0457 2826 
0459 D660 

045B 1822 


LD 

LD 

LD 

ADD 


CP 

3R 

RRC 

3R 

ADD 

LO 

LD 

AND 

LD 

3R 

SUB 

3R 


A. C0F880H) 


A.40H 


60H 

NC .045DH 
B 


NC .047FH 
A.20H 


D.A 

A. C0F840HD 

10H 

A.O 

Z.047FH 

60H 

047FH 


:Wurde Shift dazu gedrückt ? 

:Wert in B Zwischenspeichern 
:A ■ Matrixwert 
: Matrixwert + 40H ergibt 
: korrekten ASCII-Code für die 
:Tasten bis 'F4* (entspricht 

: dem ASCII-Wert 40H bis 5FH ) 

: Ist der Wert in diesem Bereich 7 
.-Nein: weiter bei 045DH 
: Wurde Shift gedrückt 7 
: ( Ist Bit 0 von F880H - 1 'fj 
;Nein: Tastencode in Ordnung 
:3a: 20H aufaddieren für 
Kleinbuchstaben 
.•Wert ablegen 

: Wurde Shift und Tiefpfeil 
: gedrückt 0 
:Wert zurück 
Kein: Wert in Ordnung 
:3a: Wert in Controlcode 
: umwandeln 

:und damit Weiterarbeiten 
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Es wurden Zahlen, Sonderzeichen oder Hont rol l tasten gedruckt: 

A hat einen Wert zwischen 60H (für '0') und 77H (für Leertaste) 


045D 0670 
045F 3010 


SUB 70H 

3R NC . 047 1H 


0461 C640 A00 A.40H 

0463 FE3C CP 3CH 


0465 3802 


3R C.0469H 


0467 EE 10 


XOR 10H 


0469 CB08 
046B 3012 
046D EE 10 


RRC B 

3R NC.047FH 

XOR 10H 


046F 1 80E 


3R 047FH 


Hontrol l taste gedrückt 

Werte aus der Tabelle ab 0050H entnehmen 


0471 07 

0472 CB08 
0474 3001 
0476 3C 


RLCR 

RRC B 

3R NC.0477H 

INC ft 


0477 215000 
047ft 5F 
047B 1600 
047D 19 
047E 7E 


LD HL.0050H 

LD E.ft 

LO D.OOH 

ftOO HL. DE 

LD ft. (HL) 


: Wurde Hontrol l taste gedrückt ? 
:3a: Wert der Tabelle ab 0050H 
: entnehmen 
:Wert berichtigen 
: Wurde eine der Tasten 

' - ' ’ . ’ oder V* gedrückt ? 
: Ne i n : Oer richtige ftSCII-Wert 
:steht in ft 

:3a: Bei diesen Tasten sind die 
;Symbole vertauscht, d. h. die 
: Vertauschung muß durch XOR 10H 
rückgängig gemacht werden 
; ( Siehe ftSCII-Tabel le) 

:Shift gedrückt ? 

;Nein: Wert übergeben 

:3a: Werte von 20H bis 2 FH mit 

:30H bis 3FH vertauschen 


:A - ft * 2 als Tabe l l enof fset 
:Shift gedrückt ? 

:Nein: Offset in Ordnung 
:3a: Für Shift-Wert. Offset um 
:eins erhöhen (siehe 0050H) 

; HL = Tabellenzeiger 
: OE - Offset 

:HL zeigt auf Tastencode 
:Code nach ft holen 


Der korrekte ftSCII-Code steht in ft. nun muss noch die Sondertaste 
'MOD SEL' ausgewertet werden 


047F 211840 
0482 CB76 
0484 2824 
0486 FE29 
0408 3820 

048A FE30 

048C 3004 
048E 062B 
0490 1816 


LO HL.4018H 

BIT 06H , ( HL ) 

3R Z.04AAH 

CP 2BH 

3R C.04AAH 

CP 30H 

3R NC.0492H 

SUB 2BH 

3R 04A8H 


: HL : Flagbyte 

: Ist MOD SEL an ? (Grafikzeichen) 
:Nein: Tastaturrout ine beenden 
.-Ist der Wert < 2BH *> 

:3a: Diese Tasten haben kein 
: Graf ikzeichen zugeordnet 
:Ist der Wert zwischen 2BH und 
: 2FH 7 

:Nein: weiterprüfen 
:3a: Ziehe 2BH ab 
: und addiere COH dazu, sodaß 
:*+’ den Wert COH und V den 
:Wert C4H bekommt 



0492 

FE3B 

CP 

3BH 

Ist der wert kleiner als ? 

0494 

3814 

DR 

C . 0400H 

:Da: Keine Graf ikzeichen 

0496 

FE5B 

CP 

5BH 

.Ist der wert größer als 'Z* ? 

0498 

3004 

DR 

NC .049EH 

:Da: 'Fl' - 'F4' ausblenden 

0490 

0636 

SUB 

36H 

bis Z’ wird zu 05H bis 24H 

049C 

1800 

DR 

0408H 

:Oddiere COH hinzu für Grafik 

049E 

FE60 

CP 

60H 

'Fl* bis ' F4 ' ausblenden 

0400 

3808 

DR 

C . 0400H 

Sprung wenn 'Fl' bis 'F4' 

0402 

FE7B 

CP 

7BH 

Shift-’Fl' bis Shi f t - ’ F4 ’ ? 

0404 

3004 

DR 

NC . 04OOH 

Da: keine Grafik 

0406 

063B 

SUB 

3BH 

'*' bis 'z' wird zu 25H bis 3FH 

0408 

C6C0 

OOD 

O.OCOH 

:Graf ikzeichen von COH bis FFH 

In 0 

ist jetzt 

der richtige 

Wert von 01H bis 

FFH 

0400 

322440 

LO 

C4024H) .0 

:Wert abspeichern für Repeat 

0400 

57 

LD 

D.O 

:Oblegen für Warteschleife 

040E 

010020 

LO 

BC . 2000H 

:Warteschlei fe aufrufen zur 

04B 1 

C06000 

COLL 

0060H 

: Verhinderung des Tastenprel l ens 

04B4 

70 

LO 

0.0 

:Wert zurück in 0 

04B5 

FEOD 

CP 

OOH 

: Wurde 'RETURN' gedrückt *> 

04B7 

2807 

DR 

Z.04C0H 

: Da : MOO SEL abschalten 

04B9 

FEO 1 

CP 

01H 

: Wurde 'BREOK' gedrückt ? 

04BB 

2803 

DR 

Z.04C0H 

; Da : MOO SEL abschalten 

04BD 

CO 

RET 

NZ 

.•Fertig wenn nicht Break 

04BE 

EF 

RST 

28H 

:RST 28H wenn Break gedrückt 
; wurde C für OOS) 

04BF 

C9 

RET 



MOD SEL aus 
(wenn 'RETURN' 

oder ' BREOK ' 

gedrückt wurde) 


04C0 

211840 

LD 

HL.4018H 

: MOO SEL abschalten 

04C3 

CBB6 

RES 

06H . CHL) 


04C5 

FE01 

CP 

01H 

: 'BREOK' gedrückt ? 

04C7 

1 8F4 

DR 

04BDH 

: wei t er bei 04BDH 

MOD SEL gedrückt 



04C9 

3E40 

LD 

0.40H 

: MOO SEL umschatten 

04CB 

OE 

XOR 

CHL) 

••(Bit 6 der Odresse 4018H um- 

04CC 

77 

LD 

CHL) .0 

sschal ten) 

04CD 

OF 

XOR 

0 

sKeinen Wert übergeben 

04CE 

1800 

DR 

0400H 

sRoutine abschliessen 

CTRL 

gedrückt 




04D0 

CBFE 

SET 

07H. CHL) 

: CTRL Bit setzen 

0402 

1 8F9 

DR 

04CDH 

sund keinen wert übergeben 
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RPT gedrückt 


0404 3R2440 
0407 18R6 

POS errechnen (Fort: 

0409 ED52 

040B 112800 

040E B7 
04DF ED52 
04E1 30FB 
04E3 19 


04E4 70 
04E5 El 
04E6 C9 


LD R.C4024H) 

3R 047FH 

ttzung von 0350H) 

SBC HL. DE 

LD DE . 0028H 

OR R 

SBC HL. DE 

3R NC.04DEH 

ROD HL . DE 


LD R.L 

POP HL 

RET 


:Letzten Wert nach R laden 
:und damit weiterrechnen 


{HL » Position des Cursors im 
: Bi Idschir» 

:DE = 40 CRnzahl der Zeichen pro 
: Zei l e) 

:CV - 0 

{Solange 40 von HL abziehen. 

:bis HL < 0 ist 
;Dann 40 aufaddieren: 

{HL * Position des Cursors 
{in der Zeile 
{R » POS 
! PTZ zurück 


Drucker rout ine (wird über DCB-Rufruf angesprochen) 


04E7 79 

04E8 B7 
04E9 283E 
04EB FEOB 
04ED 280R 
04EF FEOC 
04 F 1 20 1B 
04F3 RF 
04F4 D0B603 
04F7 2815 
04F9 DD7E03 
04FC DD9604 


04FF 47 
0500 CD2905 
0503 20FB 
0505 OEOR 
0507 CD3C05 
050R 10F4 
050C 1816 


LD R.C 

OR R 

3R Z.0529H 

CP OBH 

3R Z.04F9H 

CP OCH 

3R NZ.050EH 

XOR R 

OR CIX+03H) 

3R Z.050EH 

LD R.CIX+03H) 

SUB CIX+04H) 


LD B.R 

CRLL 0529H 

3R NZ.0500H 

LD C.ORH 

CRLL 053CH 

D3NZ 0500H 

OR 0524H 


{R - RSCII-Code des zu druckenden 
{ Zeichens 

{Soll 00H ausgegeben werden ? 

{Das Nur auf Drucker warten 

{Seitenvorschub CVT) 7 

{3a: Zeilenzähler mitzahlen 

{Seitenvorschub (FF) 7 

{Nein: Zeichen ausdrucken 

:R * Maximale Rnzahl von Zeilen 

: pro Seite. Ist fl ■ 0 7 

:3a: 00H zum Drucker geben 

: R * max . Zeilenzahl pro Seite 

:minus der Rnzahl bereits 

{gedruckter Zeilen auf der Seite. 

{ergibt die Rnzahl der Zeilen bis 

:zur nächsten Seite 

{Diese Zahl nach B 

{Drucker bereit 7 

{Nein: Ruf Drucker warten 

:Zeilenvorschübe CLF) ausgeben 

{Bis zur nächsten Seite 
{Zeilenzähler auf 0 setzen 


52 



Zeichen ausdrucken 


050E CD2905 
0511 20FB 
0513 CD3C05 
0516 FEOO 

0518 CO 

0519 OD3404 
051C DD7E04 
05 1F DDBE03 

0522 79 

0523 CO 

0524 DD360400 

0528 C9 


CALL 

3R 

CALL 

CP 

RET 

INC 

LD 

CP 

LD 

RET 

LD 

RET 


0529H :Drucker bereit ? 

NZ.050EH :Nein: Auf Drucker warten 

053CH ;Zeichen in C ausgeben 

ODH iMar es ein Zeilenvorschub 

NZ :Nein: Fertig 

CIX+04H) :3a: Zeilenzähler erhöhen 

A.CIX+04H) :A = Anzahl der gedruckten Zeilen 

CIX+03H) :Mit Maximalzahl vergleichen 

:CIst die Seite voll ?) 

A.C :gedrucktes Zeichen zurück in A 

NZ :Nein: Fertig 

C IX+04H ) . 00H :3a: Zeilenzähler auf 0 Tür 
:neue Seite 


Drucker bereit 7 CAF) 

I : - 

0: Z * 1 wenn Drucker bereit 


0529 3E07 LD 

052B D3F8 OUT 

0520 3E7F LD 

052F D3F9 OUT 

0531 3E0F LD 

0533 D3F3 OUT 

0535 DBF9 IN 

0537 E6EF AND 

0539 FE2F CP 

053B C9 RET 


A.07H 
C0F8H) , A 
A.7FH 
C0F9H) .A 
A.OFH 
C0F8H) .A 
A. C0F9H) 
OE FH 
2FH 


: Register 7 des PSG 
: anwäh l en 

: I/O Port A auf Ausgabe und 
: I/O Port B auf Eingabe stellen 
: I/O Port B anwählen 
: C Reg . 15 des PSG) 

:und Druckerstatus holen 
:Statusbits maskieren 
:und Z-Flag setzen 


: C zum Drucker geben ohne Überprüfung 


053C 3E07 
053E D3F8 
0540 3E7F 
0542 D3F9 
0544 3E0E 
0546 D3F8 

0548 79 

0549 D3F9 
054B 3E07 
054D D3F8 
054F 3EFF 
0551 D3F9 
0553 3E0F 
0555 D3F8 

0557 AF 

0558 D3F9 
055A 3E0F 
055C D3F8 
055E 3E0 1 


0560 D3F9 

0562 79 

0563 C3 


LD A.07H 

OUT C 0F8H ) , A 

LD A.7FH 

OUT C 0F9H ) . A 

LD A.OEH 

OUT C0F8H).A 

LD A.C 

OUT C 0F9H ) . A 

LD A.07H 

OUT ( 0F8H ) . A 

LD A.OFFH 

OUT t 0F9H ) . A 

LD A.OFH 

OUT C 0F8H ) . A 

XOR A 

OUT C0F9HD.A 

LD A.OFH 

OUT C 0F8H ) . A 

LD A.01H 


OUT C 0F9H ) . A 

LD A.C 

RE" 


:Register 7 des PSG anwählen 


: I/O Port 
: I/O Port 
: Register 
: anwählen 
:und Byte 


A auf Ausgabe und 
B auf Eingabe stellen 
14 ( I/O Port A) 

ausgeben 


:3etzt beide Ports auf Ausgabe 


:Zum Port B 

:00H ausgeben 

:Dann nach Port 3 

: 0 1H ausgeben und damit dem 
: Drucker inter f ace mitteilen. dad 
:ein 3yte ausgegeben wurae 

:Byte zurück nach A 
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Ausgaberout ine (Fortsetzung von 0335H) 


0564 FA1F02 
0567 C29C03 
056A C33A03 
Start 2 (Fortsetzung 

0560 31F841 

0570 AF 

0571 D3FF 
0573 2100F4 
0576 1101F4 

0579 01FF03 
057C 3600 
057E E0B0 

0580 OEFF 
0582 ED78 
0584 E608 

0586 47 

0587 D3FC 

0589 ED78 
058B E608 
0580 211137 

0590 110038 


0593 A8 

0594 00 

0595 00 

0596 D3FD 
0598 ED78 
059A E608 
059C 216935 
059F A8 
05A0 1812 


OP M. 021 FH 

OP NZ.039CH 

OP 033AH 

von 06ACH) 

LD SP.41F8H 

XOR A 

OUT (OFFH).A 

LD HL.0F400H 

LD DE.0F401H 

LO BC.03FFH 

LD (HL).OOH 

LOIR 

LD C.OFFH 

IN A . ( C ) 

ANO 08H 

LD B.A 

OUT (OFCH).A 

IN A,(C) 

AND 08H 

LD HL.3711H 

LO 0E.3800H 


XOR B 

NOP * 

NOP 

OUT (OFDH).A 

IN A.(C) 

ANO 08H 

LO HL.3569H 

XOR B 

OR 05B4H 


:Ausgabe auf Cassette 7 
:0a: weiter bei 021FH 
:Ausgabe auf Drucker ? 

:0a: weiter bei 039CH 
:Sonst Ausgabe auf Bildschirm 


:Stackpoi nter restlegen 
: Port 255 löschen ( NBGRD . CHAR 1 
:und LGR ausführenJ 
: Farbspeicher löschen 


:C « Portadresse 

Einstellungen für NTSC-Farbnorm 
: (wirkungs los in der PAL -Norm I 


DE = Zeiger auf 
:CRTC-Programmierungstabel le 
;für PAL-Norm 


: HL * Zeiger auf Farbcodetabel l e 
:weiter bei 05B4H 


Unbenutzte Routine (Nur für Geräte mit NTSC-Farbnorm) 


05A2 
05A4 
05A6 
05A8 
05AB 
05AC 
05AE 
05B 1 


D3FE 

ED 7 8 

E608 

210A37 

A8 

2006 

213137 

112338 


OUT (OFEH).A 

IN A , ( C ) 

AND 08H 

LD HL.370AH 

XOR B 

OR NZ.0534H 

LO HL.3731H 

LD DE.3823H 



; Start 3 (Fortsetzung von 05R0H) 


05B4 E5 
05B5 EB 
05B6 UF042 
05B9 012300 


05BC EDBO 
05BE El 
05BF 119043 
05C2 011000 
05C5 EDBO 
05C7 C36C00 


PUSH HL 

EX DE. HL 

LD DE.42F0H 

LD BC.0023H 


LDIR 

POP HL 

LD DE.4390H 

LD BC.0010H 

LDIR 

OP 006CH 


: HL retten 
; HL - CRTC-Tabel le 
: Tabelle ins RRM von 42F0H 
:bis 4312H kopieren 
: C Programmierungstabei len für den 
:LGR- und FGR-riodus sowie die 
:drei Zeitwerte für die 
: Casset tenrout inen) 

:HL zurück 

:Ruch die Farbcodetabel le ins 
: RRM kopieren (16 Werte) 

:weiter bei 006CH 


; Reset 2 (Fortsetzung von 0069H) 


05CR RF 
05CB D3ED 
05CD 3R04F8 
05D0 CB57 
05D2 C20000 
05D5 C3C006 


XOR 

OUT 

LD 

BIT 

OP 

OP 


R 

( OEDH ) . R 
R. ( 0F804H ) 
02H.R 
NZ.OOOOH 
06C0H 


; R * OOH 

(Port unbenutzt. DOS ?) 
: ' R ' gedrückt ? 

:0a: Kaltstart 
:Nein: Warmstart 


05D8 FF 


RST 38H 


Eingabe einer Zeile incl. Cursorsteuerung. FKey-Ruswer tung und 
Darstellung der eingegebenen Zeichen auf dem Bildschirm ( RF . BC . DE . HL ) 

Die Eingabe wird durch 'RETURN' oder 'BRERK' abgeschlossen 
Im Buffer ist das Ende durch ODH gekennzeichnet 

I : HL * Rdresse des Buffers in dem die eingegebenen Zeichen gespeichert 
werden 

B = Maximale Rnzahl der einzugebenden Zeichen 

(mehr Zeichen werden nicht angenommen, die Eingabe muß durch 'ENTER' 
oder 'BRERK' beendet werden 

0: HL = Rn f angsadresse des Buffers (Zeiger auf das erste Zeichen) 

OE =* 401DH (vom 0033H Ruf ruf) 

B = Rnzahl der tatsächlich eingegebenen Zeichen 

C = B vom Rnfang 

R = Letztes Zeichen (OOH oder 01H) 

CY ■ 1 falls die Eingabe durch 'BRERK' abgebrochen wurde 


05D9 E5 
05DR 3E0E 
05DC CD3300 
OSOF 48 
05E0 C30030 


PUSH HL 

LD R.OEH 

CRLL 0033H 

LD C .B 

OP 3000H 


: Buf f eradresse retten 
: Cursor einschalten 

;C = Max. Rnzahl von Zeichen 
: wei ter bei 3000H zur FKey- 
: Ruswer tung 
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05E3 FE20 

CP 

20H 

sKontrol l tasten betätigt ? 

05E5 3025 

DR 

NC .060CH 

:Nein: Zeichen obspeichern 

05E7 FEOD 

CP 

OOH 

: 'RETURN* ? 

05E9 CR6206 

DP 

Z.0662H 

:Do: weiter bei 0662H 

05EC FE 1 F 

CP 

1 FH 

: ' CLERR ' ? 

05EE 2829 

DR 

Z.0619H 

: Do : weiter bei 0619H 

05F0 FEO 1 

CP 

0 1 H 

:'BRERH* ? 

05F2 2860 

DR 

Z , 066 1H 

: Do : weiter bei 0661H 

05F4 11E005 

LO 

DE .05E0H 

: 05E0H als Rücksprungadresse 

05F7 D5 

PUSH 

DE 

:im Stack oblegen 

05F8 FE08 

CP 

08H 

: Zeichen löschen CLinkspfeil) 

05FR 2834 

DR 

Z.0630H 

: Da : weiter bei 0630H 

05FC FE 18 

CP 

18H 

:Zeile löschen ? 

05FE 282B 

DR 

Z.062BH 

; CShi ft-Linkspfei l ) 

: Da : weiter bei 062BH 

0600 FE09 

CP 

09H - 

:Vor bis zum nächsten TRB ? 

0602 2842 

DR 

Z.0646H 

: C Rechtspfei l ) 

; Da : weiter bei 0646H 

0604 FE 19 

CP 

19H 

:Shi rt-Rechtspfei l *> C 32 Zeicl 

0606 2839 

DR 

Z.0641H 

: pro Zeile im GENIE I) 
; Da : weiter bei 0641H 

0608 FEOR 

CP 

ORH 

:Neue Zeile beginnen ? 

060R CO 

RET 

NZ 

: CTiefpfeil ) 

: Nein : Kont rol l Zeichen nicht 

060B Dl 

POP 

DE 

: verwertbar: neues Zeichen ho 
: Rücksprungadresse aus Stack 

060C 77 

LO 

CHL) .R 

: nehmen 

:Zeichen im Buffer ablegen 

060D 78 

LD 

R.B 

:Zeicheneingabe noch erlaubt ' 

060E B7 

OR 

R 


060F 28CF 

DR 

Z.05E0H 

:Nein: neues Zeichen holen 

0611 7E 

LO 

R. CHL3 

;Zeichen aus Buffer holen 

0612 23 

INC 

HL 

: Buf ferzeiger +1 

0613 CD3300 

CRLL 

0033H 

:Zeichen darstellen 

0616 05 

OEC 

B 

: Zeichenzahl er -1 

0617 18C7 

DR 

05E0H 

:nachstes Zeichen holen 

’ CLERR ' gedrückt 

0619 C0C901 

CRLL 

01C9H 

:CLS aufrufen 

06 IC 41 

LD 

B.C 

:Zeichenzahler auf Neuanfang 

0610 El 

POP 

HL 

: HL auf Bufferstart 

06 IE E5 

PUSH 

HL 

;und wieder retten 

06 1 F C3E005 

DP 

05E0H 

: neues Zeichen holen 

Zeile löschen 

0622 CD3006 

CRLL 

0630H 

;Zeichen löschen und vom Buff 

0625 2B 

OEC 

HL 

: ze i ger l abziehen 
:Buf ferzeiger -1 

0626 7E 

LO 

R. CHL) 


0627 23 

INC 

HL 

: Buf ferzeiger wieder erhöhen 

0628 c EOR 

CP 

ORH 

:Wurde bereits eine neue Zeil 

062R CS 

RET 

Z 

; begonnen 7 

:Da: dann nur bis dahin lösen 
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Shi f t -L inkspf eil gedrückt 


062B 78 

LD 

R.B 

{Wurden bereits Zeichen 
jeingegeben ? (Ist der Zeichen- 

062C B9 

CP 

C 

Wähler nicht mehr auf dem 
{Rnfangswert ?) 

0620 20F3 

3R 

NZ.0622H 

:3a: Zeile löschen 

062F C9 

RET 


: Ne i n : Fertig 

Linkspfeil gedrückt 

0630 78 

LD 

R.B 

:Ist der Zeichenzahler noch auf 

0631 B9 

CP 

C 

:dem Rnfangswert "> 

0632 C8 

RET 

z 

:3a: Fertig 

0633 2B 

DEC 

HL 

:Buf ferzeiger -1 

0634 7E 

LD 

R . ( HL ) 

.•Voriges Zeichen holen 

0635 FEOR 

CP 

ORH 

:Wurde eine neue Zeile begonnen ? 

0637 23 

INC 

HL 

:3a: Bufferzeiger +1 

0638 C8 

RET 

Z 

:und Rücksprung 

0639 2B 

DEC 

HL 

:Nein: Bufferzeiger -1 

063R 3E08 

LD 

R.08H 

.•Backspace auch darstellen 

063C CD3300 

CRLL 

0033H 

{(Zeichen auf Bildschirm löschen! 

063F 04 INC 

0640 C9 RET 

Shi f t -Rechtspfei l gedrückt 

B 

: Zeichenzähler +1 

0641 3E17 

LD 

R. 17H 

:17H war Code für Umschaltung 

0643 C33300 

3P 

0033H 

:zum 32 Zeichen Modus 
{(wirkungslos im Colour Genie) 

Pechtspfeil gedrückt 

0646 CD4803 

CRLL 

0348H 

: POS nach R holen 

0649 E607 

RND 

07H 

{Letzte TRB-Position errechnen 
: ( POS durch 8 teilbar machen) 

0648 2F 

C PL 


:Zahl negieren 

064C 3C 

INC 

R 

:(2nd complement bilden) 

064D C608 

ROD 

R.08H 

:+8 ergibt Rnzahl der Zeichen bis 
:zur nächsten TRB-Position 

064F 5F 

LD 

E.R 

:E als Zähler benutzen 

0650 78 

LD 

R.B 

{Dürfen noch Zeichen eingefügt 

065 i B" 

OR 

R 

{werden ? 

0652 C8 

RET 

Z 

{Nein: Rücksprung 

0653 3E20 

LO 

R.20H 

:3a: Leerzeichen im Buffer 

0655 77 

LD 

(HL 3 .R 

: abl egen 

0656 23 

INC 

HL 

:und Bufferzeiger erhöhen 

0657 D5 

PUSH 

DE 

:DE retten 

0658 CD3300 

CRLL 

0033H 

{Leerzeichen darstellen 

065B Dl 

POP 

DE 

: DE zurück 

065C 05 

DEC 

B 

.•Zeichenzähler -l 

065D ID 

DEC 

E 

: TRB-Zäh l er -1 

065E C8 

RET 

Z 

{Rücksprung wenn TRB erreicht 

065F 18EF 

3R 

C650H 

{Sonst weiter einfügen 
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' BREAK * gedrückt 
0661 37 


SCF 


:CY - 1 setzen und wie 'RETURN' 
: behandeln 


'RETURN' gedrückt 

0662 F5 

0663 3E0D 

0665 77 

0666 CD3300 

0669 3E0F 
066B CD3300 
066E 79 
066F 90 

0670 47 

0671 Fl 

0672 El 

0673 C9 


PUSH AF 

LD A.ODH 

LD CHL3.A 

CALL 0033H 

LD A.OFH 

CALL 0033H 

LD A.C 

SUB B 

LD B.A 

POP AF 

POP HL 

RET 


;Flags retten (CY * O bei 
: 'RETURN' ) 

: A » ASCII -Code für RETURN 
: Im BuTfer ablegen 
:und darstel len 
iCursor wieder ausschalten 

:Anzahl der eingegebenen 
:Zeichen ermitteln 
:und in B ablegen 
: Flags zurück 
;HL auf Bufferanfang 


Start 1 


0674 3E09 
0676 D3FF 
0678 321C43 
067B 21D206 
067E 110040 
0681 013600 
0684 EDBO 

0686 3D 

0687 3D 

0688 20F 1 
068A 0627 
068C 12 
068D 13 
068E 10FC 
0690 21AB34 
0693 115043 
0696 013800 
0699 EDBO 
069B 3E01 
069D 321443 
06A0 213039 
06A3 228C43 

06A6 21DB39 

06A9 228E43 
06AC C36D05 


LD 

OUT 

LD 

LD 

LD 

LD 

LDIR 

DEC 

DEC 

3R 

LD 

LD 

INC 

D3NZ 

LD 

LD 

LD 

LDIR 

LD 

LD 

LD 

LD 

LD 

LD 

3P 


A.08H 
COFFH) , A 
C431CH) . A 
HL.06D2H 
DE . 4000H 
BC . 0036H 


: CHAR 2. NBGRD und LGR 
: einst el len 

:Portwert im RAM ablegen 
;RST-Vektoren und DCBs aufbauen 
: ( 4000H bis 4035H) 


A 

A 

NZ.067BH 
B.27H 
C DE 3 . A 
DE 

068CH 
HL.34ABH 
DE .4350H 
BC .0038H 


:Solange wiederholen bis 
: A = OOH ist 

;Von 4036H bis 405CH das RAM 
;auf OOH setzen 


:Tabelle der FKey-Texte ins RAM 
: kopieren 


A.01H 
C4314H) . A 
HL.3930H 
C438CH) .HL 

HL.39DBH 

C438EH) .HL 
056DH 


: SCALE auf 1 setzen 

:Zeiger auf die Tabelle der 
:Colour-Bas ic Befehle im RAM 
: ab legen 

: Zeiger auf die Sorungadressen- 
: tabel le 

:auch im RAM ablegen 
: weiter bei 056DH 



Test ob ROM-Cassette vorhanden ist 




06AF 3R00C0 
06B2 FE43 
0684 CA01C0 
06B7 3ROOCO 
06BA FE44 
06BC CAO ICO 
06BF C9 


LO 

CP 

DP 

LD 

CP 

3P 

RET 


A. COCOOOH) 
43H 

Z.OCOOIH 
A. COCOOOH) 
44H 

Z.OCOOIH 


:Erstes Byte aus ROH holen 
.-Ist es ein 'C' 7 
:3a: ROM-Programm starten 
:oder ist es 
:ein '0' ? 

:auch dann ROH-Prograram starten 
: Sonst : Rücksprung 


: BASIC Warmstart 


06C0 3A00C0 
06C3 FE43 
06C5 CAO ICO 
06C8 C3AE19 


LD 

CP 

3P 

3P 


A. COCOOOH) 
43H 

Z.OCOOIH 

19AE+H 


:Ist ROM-Cassette vorhanden ? 
:CErstes Zeichen ■ 'C' '>) 

:3a: ROM-Programm starten 
: Nei n : Zurück ins BASIC 


OSCB FF 
06CC FF 
06CD FF 
06CE FF 
06CF FF 

0600 FF 

0601 FF 


RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
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Dieser Teil wird von Start 1 ins RAM ab 4000H Kopiert 
(nähere Erklärungen siehe RAM-ListingJ 


06D2 C3961C 
06D5 C3T81D 
0608 C3901C 
06DB C30925 
06DE C9 
06DF 00 
06E0 00 
06E1 C9 
06E2 00 
06E3 00 
06E4 FB 
06E5 C9 
06E6 00 

06E7 01 
06E8 E303 
06ER 00 
06EB 07 
06EC 40 
06ED 20 
06EE 49 

06EF 07 
06F0 E430 
06F 1 00 
06F3 44 
06F4 01 
06F5 01 
06F6 03 

06F7 06 
06F8 E704 
06FA 43 
06FB 00 
06FC 00 
06FD 50 
06 FE 52 

06FF C30050 

0702 C7 

0703 00 

0704 00 

0705 3E00 
0707 C9 


3P 1C96H 

3P 1D78H 

DP 1C90H 

DP 25D9H 

RET 

NOP 

NOP 

RET 

NOP 

NOP 

EI 

RET 

NOP 


DP 5000H 

RST OOH 

NOP 
NOP 

LO R.OOH 

RET 
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X « X + 0.5 (SNG) 




0708 218013 

; X » X + (HL) 

070B CDC209 
070E 1806 

; X - (HL) - X (SNG) 
0710 CDC209 
: X - BCOE - X (SNG) 
0713 CD8209 
; X » BCOE + X (SNG) 

0716 78 

0717 B7 

0718 C8 

0719 38244 1 
07 IC B7 

07 ID C8B409 

0720 90 

0721 300C 

0723 2F 

0724 3C 

0725 EB 

0726 CD8409 

0729 EB 
0728 CDB409 
0720 CI 
072E Dl 


LD HL.1380H 


C8LL 09C2H 

OR 0716H 


C8LL 09C2H 


C8LL 0982H 


LD 8 , B 

OR 8 

RET 2 

LD 8 , ( 4 124H ) 

OR 8 

OP Z.09B4H 

SUB B 

OR NC.072FH 

CPL 

INC 8 

EX DE. HL 

C8LL 0984H 

EX DE. HL 

C8LL 09B4H 

POP BC 

POP DE 


072F FE 19 


0731 DO 

0732 F5 

0733 CDDF09 

0736 67 

0737 Fl 


CP 19H 


RET NC 

PUSH 8F 

C8LL 09DFH 

LD H .8 

POP 8F 


:HL : Konst. 0.5 


: BCDE - (HL) 

; X * X +■ BCOE 


: BCDE » (HL) 


:X 


-x 


; 8 - Exp (BCDE) 

; BCDE - 0 ? 

:0a: X ist Ergebnis 
: 8 - Exp (X) 

:X * 0 ? 

:0a: X » BCDE (BCOE ist Ergebnis) 
; 8 - Exp (X) - Exp (BCDE) 

: Ist der größere Wert in X ^ 

:0a: weiter bei 072FH 
;Nein: Summanden vertauschen: 

; 8 = -8 ( 8 positiv machen) 

:8 ist die Differenz der Expo- 
nenten 
; DE retten 

: ( SP) * X (2. Summanden im Stack 
: ab legen) 

; DE zurück 

: X * BCDE (X « 1. Summand) 

; BCDE * 2. Summand 

:In X ist jetzt der Summand mit 
:dem größeren Exponenten. 

:In 8 ist die Differenz der 
: beiden Exponenten 
.-Ist die Differenz beider 
Exponenten größer als 24 (Ist 
:die Differenz beider Summanden 
:größer als 2 hoch 24) 

:0a: BCDE ist zu klein, die Summe 
:würde X nicht verändern 
: Exponentendi f f erenz retten 
:Mantissen berichtigen 
:H.7 = 0. wenn Signs ungleich 
Exponentendifferenz zurück 
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0738 CDD707 


073B B4 
073C 212141 
073F F25407 
0742 CDB707 
0745 D29607 

0748 23 

0749 34 

074A CAB207 
074D 2E01 
074F CDEB07 
0752 1842 


: Signs ungleich 

0754 AF 

0755 90 

0756 47 

0757 7E 

0758 9B 

0759 5F 
075PI 23 
075B 7E 
075C 9A 
0750 57 
075E 23 
075F 7E 

0760 99 

0761 4F 


CALL 0707H 


OB H 

LD HL.4121H 

3P P.0754H 

CALL 07B7H 

3P NC.0796H 

INC HL 

INC (HL) 

3P Z.07B2H 

LD L.01H 

CALL 07EBH 

3R 0796H 


:Durch verschieben von COE um 
:A-Bits nach rechts. Mantisse von 
; BCOE auf gleichen Exp wie X 
: bringen 

:A.7 = 0. wenn Signs ungleich 
: HL = Zeiger auf X 
:Sprung wenn Signs ungleich 
:Mantissen addieren 
:Überlauf der Mantissen ? 

.■Nein: weiter bei 0796H 
:3a: HL zeigt auf Exp (X) 

: Exp (X) +1 (Überlauf auf Exp 
: übertragen) 

:Exp-Über lauf ? 3a: OV-Error 
:Nein: Mantisse durch 2 teilen 
:da Exp erhöht wurde 
;CDE aufrunden und in X ablegen 


XOR A 

SUB B 

LD B.A 

LD A.(HL) 

SBC A.E 

LD E.A 

INC HL 

LD A. (HL) 

SBC A.D 

LD D.A 

INC HL 

LD A.(HL) 

SBC A.C 

LD C.A 


: B - -B 

:Mantissen subtrahieren 


: MSBs subtrahieren 
: Unter l auf ? 


SFLOAT : CDEB in 2-Exp-Format umwandeln und in X ablegen 

Die Mantisse wird solange um ein Bit nach links geschoben, bis das 
höchste Bit = 1 und der Exponent möglichst klein ist 


0762 DCC307 


0765 68 

0766 63 

0767 AF 

0768 47 

0769 79 
076A 97 
076B 2018 
0760 4A 
076E 54 

075F 65 

0770 6F 


CALL C.07C3H 


LD L.B 

LD H.E 

XOR A 

LD B.A 

LD A.C 

OR A 

3R NZ.0785H 

LD C.D 

LD O.H 

LD H.L 

LD L.A 


:Bei Über- oder Unterlauf 
;Mantisse (CDEB) invertieren 
: HL - LSBs 

:Mantisse ist jetzt CDHL 
: A * OOH 
:B - Zähler 
: A - MSB 
: MSB » 0 *> 

:Nein: Bitweise weiterschieben 
:C <- D < - H <- L < - OOH 
;(Mantisse byteweise links 
:schieben) 

; bis MSB <> OOH 
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0771 78 

0772 D608 

0774 FEEO 
0776 20F0 


X * 0 (SNG.OBL) 

0778 BF 

0779 322441 
077C C9 


LD A.B 

SUB 08H 


CP OE OH 

3R NZ.0768H 


:Zähler -8 (da 8 Bits geschoben 
: wurden) 

: Zäh l er - -32 ? 

:Nein: Weiterschieben 

:3a: Es wurde 4 mal geschoben. 

:die Mantisse ist 0 

:-> Ergebnis * 0 


XOR R :A * OOH 

LD ( 4 124H ) . A : Exp CX) » OOH -> X * 0 

RET 


Mantisse CDHL bitweise nach links schieben bis höchstes Bit - 1 ist 


077D 05 

077E 29 
077F 7A 

0780 17 

0781 57 

0782 79 

0783 8F 

0784 4F 

0785 F27D07 


0788 78 

0789 5C 
078A 45 
078B B7 
078C 2808 
078E 212441 

0791 86 

0792 77 

0793 30E3 

0795 C8 


DEC B 

ADD HL. HL 

LD A.D 

RLA 

LD D.A 

LD A.C 

ADC A.A 

LD C.A 

jP P.077DH 


LD A.B 

LD E.H 

LD B.L 

OR A 

3R Z.0796H 

LD HL.4124H 

ADD A.(HL) 

LD (HL).A 

3R NC.0778H 

RET Z 


: Zäh l er -1 (da 1 Bit geschoben 
:wird) 

: HL » HL * 2 ( ■ links schieben) 
:D ■ D * 2. Überlauf in CY 
:C - C + C + CY 


; C . 7 » 1 ? 

: (höchstes Bit in CDHL -1 ?) 

: Nei n : Weiterschieben 
:A = negative Anzahl der 
Verschiebungen 
:Mantisse * CDEB 

:Nichts verschoben ? 

:3a: weiter bei 0796H 
:Nein: Exponenten ändern 
:A * neuer Exponent 
:Exp speichern 

:X * 0 setzen, wenn alter Exp zu 
: kl ein war 

:Fertig. wenn Exp * 0 
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CDEB aufrunden und in X ablegen 
Exp(XD und Sign werden beibehalten 


0796 78 


LD 


: fl 


LSB 


0797 212441 
0790 B7 

079B FC 0807 
.079E 46 
079F 23 

0700 7E 

0701 E680 

0703 09 

0704 4F 


0705 C3B409 


LD HL.4124H 

0R O 

COLL M.0708H 

LD B.(HLD 

INC HL 

LD O.CHL) 

OND 80H 

XOR C 

LD C.O 

3P 09B4H 


: HL : Exp (XD 

: 0 , 7 - l ? (Höchstes Bit des LSBs 
: geset 2 1 ?D 
:3a: CDE auf runden 
:B = Exp (XD 

:0 * Signflag 

;Signbit ausblenden 

:und mit C verknüpfen 

: BCDE ist negativ wenn das Sign- 

:flag = OOH war 

: X * BCDE 


CDE aufrunden und Überlauf nach Exp(XD schreiben 


0708 IC 

0709 CO 
0700 14 
070B CO 
070C OC 
070D CO 
070E 0E80 

07B0 34 
07B 1 CO 


07B2 1E00 
07B4 C30219 


INC E 

RET NZ 

INC D 

RET NZ 

INC C 

RET NZ 

LD C.80H 

INC ( HL D 

RET NZ 


: LSB +1. Überlauf 
:Nein: Zurück 
:3a: Nächtes Byte +1 
;Zurück wenn kein Überlauf 
: MSB +1. Überlauf ? 

:Nein: Zurück 

:3a: Höchstes Bit der Mantisse 
:auf 1 setzen 

:und Exp( XD erhöhen. Überlauf ? 
:Nein: Zurück, sonst OV Error 


LD E.OOH :E * Fehlercode für OV-Error 

3P 1902H :Zur Fehl errout ine 


CDE * COE +• ( HL D (SNGD Festkomma- (Mantissen-D addition 


07B7 7E 
07B8 83 
07B9 5F 
07BO 23 
07BB 7E 
07BC 80 
07BD 57 
07BE 23 
07BF 7E 
07C0 89 
07C1 4F 
07C2 C9 


ODD O.E 

LD E.O 

INC HL 

LD O . ( HL D 

ODC O.D 

LD 0.0 

INC HL 

LD O . ( HL D 

ODC O.C 

LD C.O 

RET 


: 0 * (HLD 
:0 « E ♦ (HLD 
: E » E + (HLD 
:nächstes Byte 

: jetzt mit CY addieren 

: letztes Byte 
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Mantisse CDEB und Signflag C4125H1 invertieren 


_ 


07C3 

07C6 

07C7 

07C8 

07C9 

07CA 

07CB 

07CC 

07CD 

07CE 

07CF 

07D0 

0701 

07D2 

07D3 

07D4 

07D5 

0706 


7E 

2F 

77 

AF 

6F 

90 

47 

70 


5F 

7D 

9A 

57 

7D 

99 

4F 

C9 


LD HL.4125H 

L0 A.CHL) 

CPL 

LD CHL).A 

XOR A 

LD L.A 

SUB B 

LD B.ft 

LO A.L 

SBC ft . E 

LD E.A 

LD A.L 

SBC A . D 

LD D.A 

LD ft.L 

SBC A.C 

LD C.A 

RET 


:HL : SignTlag 
; Fl ag invertieren 


:ft * OOH 
: L - OOH 

:B = OOH - B 
: ft * OOH 

;E = OOH - E - CY 
: desg l . mit D 


rund mit C 


CDE um ft Bits nach rechts schieben. B wird LSB 


07D7 0600 
07D9 D608 
07DB 3807 
07DD 43 
07DE 5A 
07DF 51 
07E0 OEOO 
07E2 1 8F5 

; Bitweise schieben 
07E4 C609 


07E6 6F 
07E7 ftF 
07E8 2D 
07E9 C8 
07EA 79 

07EB 1F 
07EC 4F 
07ED 7A 
07EE 1F 
07EF 57 
07F0 7B 
07F1 1F 
07F2 5F 
07F3 78 
07F4 1F 
07F5 47 
07F6 18EF 


LD B.OOH 

SUB 08H 

DR C.07E4H 

LD B.E 

LD E.D 

LD D.C 

LD C.OOH 

DR 07D9H 


AOO ft . 09H 


LD L , A 

XOR A 

DEC L 

RET 2 

LD A.C 

RRA 

LD C. A 

LD A.D 

RRA 

LD D.A 

LD A.E 

RRA 

LD E.A 

LD A.B 

RRA 

LD B.A 

DR 07E7H 


; Über lauf auf OOH 

rNoch mehr als 8 Verschiebungen ^ 
.•Nein: Bitweise schieben 
:Da: Bytes schieben 


: OOH ->C->D->E->B 
:Noch weiter verschieben ? 


rSubtraktion rückgängig machen 
:und 1 addieren, da vor der 
Verschiebung der Zähler 
.•erniedrigt wird 
; L = Zähler 
; A » OOH 

.•Zähler -1. Zähler = 0 ? 

:Da: Zurück 

:Nein: COE um ein Bit nach rechts 
: schieben 


:D schieben 


:E schieben 


:B schieben 

rüberlauf in 3 
rweiter verschieben "> 
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Konstante 1 CSNG3 


07F8 00 
07F9 00 
07FA 00 
07FB 81 


SNG-Koef f iz ient ent abel l e Tür LOG-Funktion 


07FC 03 

07FD AA 
07FE 56 
07FF 19 
0800 80 

0801 Fl 

0802 22 

0803 76 

0804 80 

0805 45 

0806 AA 

0807 38 

0808 82 

X * LOG C X 3 

berechnet den natürlichen Logarithmus 
I: X - Zahl C<> 0 3 
0: X = LOG (Zahl! 


:3 Koeffizienten 

:0. 598979 ca. 2 / ( 5*LOG(23 3 


:0. 961471 ca. 2 / ( 3*LOGC23 3 


:2. 88539 - 2 / C l*LOGC23 3 


der Zahl in X 


0809 CD5509 
080C B7 
0800 EA4A1E 

0810 212441 

0813 7E 

0814 013580 
0817 1 1 F304 

08 1A 90 
08 1B F5 
08 IC 70 

08 ID D5 
08 1 E C5 
08 1 F C01607 

0822 CI 

0823 Dl 

0824 04 


CALL 0955H 

OR A 

OP PE.1E4AH 

LD HL.4124H 

LD A.CHL3 

LD BC. 8035h 

LD DE.04F3H 

SUB B 

PUSH AF 

LD CHL3.B 

PUSH DE 

PUSH BC 

CALL 0716H 

POP BC 

POP DE 

INC B 


: TEST2 
: Arg = 0 ? 

:0a: FC-Error 
; HL : Exp (Arg) 

: A * Exp (Arg) 

; BCDE * 0.707107 = SQRC23/2 

Umrechnung Arg * x * 2 hoch n 
: Exp (Arg) - 128 - n (B ist 1283 
:n retten 

:X = x (Exp auf 80H setzen3 
:C2-Exponent entfernen3 
: BCDE retten 

; X * X + BCDE - X + 1/2 * SQRC23 
:BCDE zurück 

: Exp (BCDE 3 +1: 

; BCDE = BCDE * 2 - SQR C23 
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0825 

0828 

082B 

082E 

0831 

0834 

0837 

0838 
0830 
083E 


CDA208 
21F807 
CD 1007 
21FC07 
C09A14 
018080 
110000 
CD1607 
Fl 

CD890F 


CALL 08A2H 

LD HL.07F8H 

CALL 071 OH 

LO HL.07FCH 

CALL 149AH 

LO BC.8080H 

LO OE.OOOOH 

CALL 0716H 

POP AF 

CALL 0F89H 


:X * BCDE / X * SQRC2) / X 
: HL : 1.0 

: X « (HL) - X * 1 - X 
: HL * Zeiger auf Zahl ent abel l e 
:Reihel berechnen 
: BCOE - -0.5 

:X - BCDE + X « X - 1/2 
:n zurück 
:X - X + n 

: und mit L0GC2) multiplizieren 


: X » X * L0GC2) 

0841 013180 
0844 111872 


LD BC . 803 1H ; BCOE - 0.693147 - L0GC2) 

LD DE.7-218H : 


SMUL: X ■ BCDE * X 

Multipliziert zwei Zahlen einfacher Genauigkeit 
I: BCOE * 1. Faktor 
X * 2. Faktor 
0: X * Produkt 


0847 CD5509 
084A C8 
084B 2E00 
0840 CD1409 

0850 79 

0851 324F41 

0854 EB 

0855 225041 
0858 010000 
085B 50 
085C 58 
0850 216507 

0860 E5 

0861 216908 

0864 E5 

0865 E5 


0866 212141 
0869 7E 

086A 23 
086B B7 
086C 2824 
086E E5 
086 F 2E08 


CALL 0955H 

RET Z 

LD L.OOH 

CALL 0914H 

LD A , C 

LD ( 4 14FH ) . A 

EX DE. HL 

LD C 4 1 50H ) , HL 

LD BC.OOOOH 

LD D.B 

LD E.B 

LD HL.0765H 

PUSH HL 

LD HL.0869H 

PUSH HL 

PUSH HL 


LD HL.4121H 

LD A.CHL) 

INC HL 

OR A 

3R Z.0892H 

PUSH HL 

LD L.08H 


: TEST2 

:X « 0 ? -> Ergebnis - 0 
: Fl ag * OOH C MUL -Kennung) 
;Exponenten verarbeiten 
: CDE (1. Faktor) ab 414FH im RAM 

: abl egen 


: BCDE = OOOOOOOOH 

jCIn BCDE wird das Produkt 

; gebi Idet ) 

:Letztes RET nach 0765H 

:Zweimal RET auf 0869H setzen 
: ( 0869H wird sofort und zweimal 
:nach RET. also insgesamt dreimal 
.•durchlaufen) 

:Cdie Mantisse hat 3 Bytes ') 

; HL ■ Zeiger auf 2. Faktor 
:A = nächstes Byte der Mantisse 
:des 2. Faktors 
.•Zeiger +1 
: Byte * OOH *> 

:3a: weiter bei 0892H (A = OOH) 
:Zeiger retten 
: L * Zähler für 8 Bits 



0871 1F 

0872 87 

0873 79 

0874 3008 

0876 E5 

0877 2R5041 
087R 19 
087B EB 
087C El 
087D 3R4F41 

0880 89 

0881 1F 

0882 4F 

0883 7R 

0884 1F 

0885 57 

0886 7B 

0887 1F 

0888 5F 

0889 78 
088* 1F 
088B 47 
088C 20 
0880 7C 
088E 20E 1 

0890 El 

0891 C9 


RR* 

LD H.R 

LD R.C 

3R NC.0881H 

PUSH HL 

LD HL . C4150H) 

RDO HL. OE 

EX DE. HL 

POP HL 

LD R.C414FH) 

ROC R.C 

RRR 

LD C .R 

LD R.D 

RRR 

LD O.R - 

LD R.E 

RRR 

LD E.R 

LD R.B 

RRR 

LD B.R 

DEC L 

LD R.H 

JR NZ.0871H 

POP HL 

RET 


: Nächstes Bit in CY schieben 
:Byte in H retten 
: R - MSB 

;Sprung wenn Bit nicht gesetzt 
: HL retten 

: CDE = CDE + 1. Faktor 


HL zurück 
R * MSB 

CDEB um 1 Bit nach rechts 
schieben 
D schieben 


:E schieben 


:B schieben 


: Zähl er -1 
:Byte zurück nach R 
.•nächtes Bit prüfen 
: Zeiger auf X zurück nach HL 
: Zweimal RET auf 0896H 
;zuletzt auf 0765H 


UPRO für SMUL 

CDEB um 1 Byte nach rechts schieben und mit OOH auf füllen 


0892 43 LD 

0893 5R LD 

0894 51 LD 

0895 4F LD 

0896 C9 RET 


; OOH -> C -> D 


E -> B 


SDIV10: X - X / 10 
Dividiert Zahl in X durch 10 
I : X = Zahl einfacher Genauigkeit 
0: X - Zahl / 10 


0897 CDR409 
089R 21D80D 

X - CSP) / CHL) 

0890 CDB109 

X - C SP) / X 

08R0 CI 
08R1 Dl 


CRLL 09R4H 

LD HL.0008H 


CRLL 09B1H 


POP BC 

POP DE 


: ( SP) - X 
: HL : 10 


; X = BCDE * CHL) 


; BCDE * CSP) 



SO IV : X - 8C0E / X 

Dividiert zwei Zahlen einfacher Genauigkeit 
I: BCOE - Dividend 
X * Divisor 
0: X > Quotient 


0802 CD5509 
0805 C09019 
0808 2EFF 
0800 CD 1409 


0800 
080E 
080F 
08B0 
08B 1 
08B4 
0885 
0888 
0889 
0880 
08BB 
08BE 
08BF 
08C0 
08C1 
08C2 
08C3 
08C4 


TE 

328540 


7E 

328140 


COLL 0955H 

3P Z.1990H 

LD L.OFFH 

COLL 0914H 

INC (HL) 

INC (HL) 

DEC HL 

LD 0. (HL) 

LD ( 4089H ) . O 

DEC HL 

LD O.(HL) 

LD C4085H) .0 

DEC HL 

LD O.(HL) 

LD ( 408 1H ) . O 

LD B.C 

EX DE. HL 

XOR 0 

LD C.O 

LD 0 . 0 

LO E.O 

LD ( 408CH ) . O 


: TEST2 

:/0-Error. wenn X ■ 0 
: Fl ag * FFH (DIV-Hennung) 
Exponenten und Vorzeichen ver- 
: rechnen 

Exponenten berichtigen 

; HL zeigt auf MSB (X) 

:Divisor im ROM ablegen: 

; MSB nach 4089H 


: 1 . LSB nach 4085H 


2. LSB nach 4081H 
BHL = COE 

BHL * Mantisse des Dividenden 

O * OOH 

CDE =■ OOOOOOH 

(In CDE wird das Ergebnis be- 
rechnet ) 

(408CH) ■ OOH 

MSB des Dividenden auf 0 setzen 


08C7 E5 
08C8 C5 
08C9 7D 
08CO CD8040 


08CD DEOO 


08CF 3F 
08D0 3007 
08D2 328C40 

0805 Fl 

0806 Fl 
08D7 37 
0808 02C1E1 

*08D9 CI 
*08DO El 

08DB 79 


PUSH HL 

PUSH BC 

LD O.L 

COLL 4080H 


SBC O.OOH 


CCF 

3R NC.08D9H 

LD ( 408CH ) . O 

POP OF 

POP OF 

SC F 

DP NC.0E1C1H 

POP BC 

POP HL 

LD O.C 


: Dividend retten 

: 0 - 2. LSB des Dividenden 
; BHL = BHL - X (Mantissen von 
:Dividend und Divisor sub- 
: t rahieren) 

: 0 = ( 408CH ) 

;0 ■ 0 - CY (Unterlauf der 
: letzten Subtraktion auch vom MSB 
: abziehen) 

;Unterlauf ? 

:CY invertieren 
:3a: weiter bei 08D9H 
:Nein: MSB zurückschreiben 
:Dividend vom Stack löschen 

:CY » 1 -> Sprung wird nicht 
: ausgeführt 

:Oividend zurück nach BHL 
: ( CY = 0 wegen 0800H !) 

: O » MSB des Ergebnisses 
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08DC 3C 
0800 30 
080E 1F 

080F F89707 


08E2 17 

08E3 7B 
08E4 17 
08E5 5F 
08E6 78 
08E7 17 
08E8 57 
08E9 79 
08E8 17 
08EB 4F 
08EC 29 
08ED 78 
08EE 17 
08EF 47 
08F0 388C40 
08F3 17 
08F4 328C40 
08F7 79 
08F8 B2 
08F9 B3 
08F8 20CB 
08FC E5 
08F0 212441 

0900 35 

0901 El 

0902 20C3 
0904 C3B207 


INC 8 

OEC 8 

RR8 

3P M.0797H 


RL8 

LD 8 , E 

RL8 

LD E . 8 

LD 8.0 

RL8 

LD 0 . 8 

LD 8.C. 

RL8 

LD C.8 

800 HL. HL 

LD 8 . B 

RL8 

LD B . 8 

LD 8.C408CH) 

RL8 

LD ( 408CH ) . 8 

LD 8 . C 

OR D 

OR E 

3R NZ.08C7H 

PUSH HL 

LD HL.4124H 

DEC (HL) 

POP HL 

3R NZ.08C7H 

3P 07B2H 


8.7 > 1 ? 

CS-Flag wird beeinflusst) 

CV für die Rundungsroutine nach 

8.7 schieben 

3a: Fertig, CDE aufrunden (falls 

CV * 1 war) und als Ergebnis 

nach X schreiben 

8.7 nach CY zurückschieben 

und CV ins Ergebnis einschieben 

CC <- D <- E <- CV) 


:Dividend auch ein Bit nach links 
: verschieben 
:Überlauf von HL in B 
; übernehmen 

jüberlauf der Di videndenver- 
sschiebung nach 408CH über- 
: nehmen (USB des Dividenden) 

: CDE - OOOOOOH ? 

:(Ist das Ergebnis noch 0 ?) 

:Nein: nächstes Bit verrechnen 
:3a: HL retten 
: HL : Exp(X) 

:X ■ X / 2 
sUnterlauf ? 

: HL zurück 

:Nein: nächstes Bit verrechnen 
:3a: OV-Error 


UPRO für SMUL. SOIV. DMUL und DDIV 
Exponenten und Vorzeichen verrechnen 


Einsprung für DDIV 


0907 3EFF LD 

0909 2E8F LD 

Einsprung Tür DMUL 

*0908 8F XOR 

090B 212D41 LD 

090E 4E LD 

390 F 23 INC 

3910 RE XOR 

0911 47 LD 

3912 2EC0 _3 


8.0FFH 

L.08FH 


8 

HL.412DH 
C . (HL) 

HL 

(HL) 

9.8 
_ . 30H 


Flag * OOH 
HL : MSB (V) 

C * MSB CV) 

HL : Exo (V) 

DMUL : 8 * Exp CV) 

DDIV : 8 - -Exp (V) - 1 
: 9 * Exp 

weiter wie bei SMUL 
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Einsprung für SMUL CL-OOH) und SOIV CL-FFH 


0914 78 

0915 97 

0916 28 1 F 

0918 70 

0919 212441 
09 IC AE 

0910 80 

09 IE 47 
091 F 1F 

0920 A8 


0921 78 

0922 F23609 

0925 C680 

0927 77 

0928 CA9008 
092B CDDF09 

092E 77 
092F 2B 
0930 C9 


LD A.B 

OR R 

3R 2.0937H 

LD A.L 

LO HL.4124H 

XOR (HL) 

ADD A.B 

LD B.A 

RRA 

XOR B 


LD A.B 

DP P.0936H 

ADD A . 80H 

LD CHL).A 

DP Z.0890H 

CALL 09DFH 

LD (HL).A 

DEC HL 

RET 


: A = Exp CBCDE) 

; BCDE = 0 ? 

:3a: Ergebnis = 0 
: A * Flag 
; HL : Exp (X) 

; SMUL : A * Exp (X) 

: SDI V : A - -Exp (X) - 1 

:SMUL: A * Exp CV) + Exp (X) 

:SDIV: A * Exp CY) - Exp CX) - 1 

:B = neuer Exp 

:CY nach A.7 schieben 

;mit B verknüpfen 

:A.7 = 0 wenn es bei der Exp- 

:Addition zu einem Über- bzw. 

:Unterlauf nach CY und A.7 kam 

:CWenn beide Exponenten positiv 

:waren Cd.h. > 80H) kommt es nur 

:zu einem Überlauf nach CY. 

: A . 7 wird 0 ! ) 

: A * neuer Exp 

: Weiter bei 0936H wenn es zu 
:einem Über- bzw. Unterlauf kam 
:0ffset zum Exp addieren 
: C Exp steht jetzt richtig) 

;neuen Exp in Exp CX) speichern 
:Exp = 0 ? 3a: Fertig 
:Mantissen berichtigen. 
:Vorzeichen ausblenden 
:Signflag retten 
; HL * 4124H 


Einsprung von EXP C X ) wenn X > 127 oder LSB(X) > 7DH 
wenn X < 0. dann X * 0 setzen sonst OV-Error 


0931 CD5509 

0934 2F 

0935 El 

0936 B7 

0937 El 

0938 F27807 
093B C3B207 


CALL 0955H 

CPL 

POP HL 

OR A 

POP HL 

3P P.0778H 

DP 07B2H 


TEST2 

A positiv wenn X < 0 
sonst A negativ 
RET-Adresse löschen 
Flags setzen 
RET-Adresse löschen 
A positiv: X = 0 
sonst OV-Error 



SMUL10: X - X * 10 
Multipliziert Zahl in X mit iO 
I: X » Zahl einfacher Genauigkeit 
0 : X * Zahl * 10 


093E 

0941 

0942 

0943 

0944 
0946 

0949 
094A 
094D 

0950 

0951 

0952 


C8 

C602 

DAB207 


CD1607 

212441 

34 


CALL 09BFH 

LD f=I.B 

OR A 

RET Z 

ADO A . 02H 

3P C.07B2H 

LD B.A 

CALL 0716H 

LD HL.4124H 

INC CHL) 

RET NZ - 

OP 07B2H 


; BCDE = X 
; BCDE * 0 ? 

:3a: Ergebnis » 0 

: Exp +2 -> BCDE ■ BCDE * 4 

: OV-Er ror bei Exp Überlauf 

:Exp in BCDE setzen 

:X * X + BCDE - X + 4*X - 5 * X 

:HL : Exp(X) 

; Exp (XJ +1 -> X - X * 2 
:0k wenn kein Überlauf 
:OV-Error bei Exp Überlauf 


TEST2 : SGN-Funktion für X 

Testet Zahl einfacher oder doppelter Genauigkeit wie der SGN-Befehl 
I: X * zu testende Zahl einfacher oder doppelter Genauigkeit 

0: wenn X < 0: A * FFH , CY - 1. Z * 0. S * 1 

wenn X * 0: A * 00H . CY-0. Z«l. S-0. P/V = 1 

wenn X > 0 : A * 01H. CY » 0. Z * 0. S ■ 0 


0955 

0958 

0959 
095A 
095D 

*095E 

095F 

0960 

0961 

0962 

0963 


3A2441 

B7 

C8 

3A2341 

FE2F 

2F 


17 

9F 

CO 

3C 

C9 


LD 

OR 

RET 

LD 

CP 

C PL 

RLA 

SBC 

RET 

INC 

RET 


A. C4124H) 

A 

Z 

A. C4123H) 
2FH 


A.A 

NZ 

A 


: A - Exp C X ) 

:X ■ 0 ? 

:3a: Fertig 
: A . 7 « Sign 

;Einsprung von Vergleichsroutinen 
:CY - Sign 

: A - FFH wenn X < 0 sonst A * 00H 
:A ok wenn X < 0 
:X > 0: A - 01H 


FLOATA: A in eine Zahl 

I: A ■ Zahl 

0: X = Zahlenwert von 

0964 0688 
0966 110000 


einfacher Genauigkeit umwandeln 

A in einfacher Genauigkeit 

LD B.88H ;B = Exp für 2 hoch 8 

LD DE.OOOOH ; LSBs = 0 
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FL08T: Binärwert in eine Zahl einfacher Genauigkeit umwandeln 

1. Binärzahl mit 8 Bit: 

I: B - 88H C Exp Tür 2 hoch 8) 

8 = Binärwert 

OE « OOOOH 

2. Binärzahl mit 16 Bit: (siehe auch CINT) 

I: B » 90H (Exp für 2 hoch 16) 

8 » MSB des 16 Bit-Werts 

D * LSB des 16 Bit-Werts 
E ■ OOH 

3. Binärzahl mit 24 Bit: 

I: B « 98H (Exp für 2 hoch 24) 

8 * MSB des 24 Bit-Werts 

OE » LSBs des 24 Bit-Werts 

0 : X » Zahl in einfacher Genauigkei-t 


0969 212441 
096C 4F 
0960 70 
096E 0600 

0970 23 

0971 3680 

0973 17 

0974 C36207 


LD HL.4124H 

LD C .8 

LD (HL).B 

LD B.OOH 

INC HL 

LD CHD.80H 

RL8 

DP 0762H 


: HL : Exp (X) 

: C * 8-Bit Wert 
:Exp setzen 

:B * OOH Cwird LSB bei 0762H) 
: HL : Signflag 
:Signflag auf 80H setzen 
:Signbit nach CY C für 0762H ) 
:und nach SFL08T springen 


; X * 8BS C X ) 


0977 CD9409 

0978 FO 


C8LL 0994H ;TEST1 

RET P : Fer t ig wenn X > 0 


j X - -X Typrichtig 


097B E7 
097C F85B0C 
097F C8F608 


RST 20H 

DP M.0C5BH 

DP Z.08F6H 


: TSTTYP 

:nacn 0C5BH wenn X INT 
:TM-Error wenn X STR 
: sonst X * -X 


SDNEG : X - -X 
Zahl in X negieren 

I: X ■ Zahl einfacher oder doppelter Genauigkeit 


: 0: X * negierte Zahl 


0982 212341 LD 

0985 7E LD 

0986 EE80 XOR 

0988 77 LD 

0989 C9 RET 


HL.4123H : C HL ) - MSB 

8. (HL) :Sign umkehren 

80H 

(HL) .8 



X - SGN ( X ) 


098A CD9409 
098D 6F 
098E 17 
098F 9F 


0990 67 

0991 C39A0A 


CALL 0994H 

L0 L.A 

RLA 

SBC A.A 

LD H.A 

DP 0A9AH 


:TEST1 

; L » SGN-Wert C FFH . OOH oder 01H) 
:Höchatea Bit nach CY achieben 
:A - OOH bei poaitivem Ergebnia 
;aonat ft * FFH 

; damit iat HL der INT-Wert von ft 
: HL in X ablegen 


TEST1: wie SGN-Funkt ion . aber Reaultat in ft 
Teatet Zahl in X ob kleiner, gleich oder größer Null 
TM-Error wenn STR in X 
I : X * zu teatende Zahl 

0: wenn X < 0: ft * FFH. CY - 1. Z « 0. S - 1 

wenn X = 0: A - OOH. CY - 0. Z «• 1 , S • 0. P/V - 1 

wenn X > 0: A = 01H. CY = 0. Z - 0. S-0 


0994 E7 

0995 CftF60ft 
0998 F25509 
099B 2PI2141 
099E 7C 
099F B5 
09ft0 C8 
09ft 1 7C 
09ft2 18BB 


RST 

JP 

3P 

LD 

LD 

OR 

RET 

LD 

DR 


20H 

Z.0RF6H 

P.0955H 

HL. C4121H) 

ft.H 

L 

Z 

ft.H 

095FH 


: TSTTYP 

; TM-Error wenn STR in X 
: TEST2 wenn X SNG oder OBL 
: HL - INT-Wert 
:HL - 0 ? 

:3a: ok 

: A . 7 - 1 wenn HL<0 aonat ft. 7 » 0 
:In TEST2 apringen 


CSP) - X C SNG) 
(Wert in X retten) 


09A4 EB 
09A5 2A2141 
09ft8 E3 
09A9 E5 
09AA 2A2341 
09ftD E3 
09ftE E5 
09ftF EB 
09B0 C9 


EX 

LD 

EX 

PUSH 

LD 

EX 

PUSH 

EX 

RET 


DE. HL 

HL. C4121HD 
CSP) .HL 
HL 

HL. C4123H) 
CSP) .HL 
HL 

DE. HL 


HL retten 
: HL - LSB CX) 

LSBa in Stack bringen 
;und Rückaprungadreaae -etten 
deagl . mit MSB und Exp 


HL zurück 


X - BCDE - CHL) C SNG ) 


09B1 CDC209 CALL 09C2H :BCDE - CHL) 

X - BCDE C SNG ) 


09B4 EB 
09B5 222141 
09B8 60 
09B9 69 
09BA 222341 
C9BD EB 
09BE C9 


EX OE. HL 

LD C 4 1 2 1H ) . HL 

LD H.B 

LD L.C 

LD C 4 1 23H ) . HL 

EX DE. HL 

RET 


; HL - LSBa 
:nach X bringen 
: HL * MSB und Exp 

:nach X bringen 
: HL zurück 
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: BCDE - X C SNG) 

09BF 212141 LD HL.4121H : HL - Zeiger auf X 

i BCDE - CHL) C SNG ) 

09C2 5E 
09C3 23 
09C4 56 
09C5 23 
09C6 4E 
09C7 23 
09C8 46 
09C9 23 
09CR C9 

: CHL) «X C SNG ) 

09CB 112141 LD DE.4121H jOE - Zeiger auf X 

09CE 0604 LD B . 04H :4 Bytes SNG-Wert 

w 09D0 1805 3R 09D7H ;in Hopier rout ine springen 

: C DE ) - CHL) Kopiert Speicher von CHL) nach CDE) . Zähler - C40RFH) 

09D2 EB EX DE. HL s 

; wie oben aber von CDE) nach CHL) 

09D3 3RRF40 LD R.C40RFH) s R * VT * Zähler 


LD E.CHL) : BCDE mit CHL) laden 

INC HL 

LD D.CHL) 

INC HL 

LD C.CHL) 

INC HL 

LD B . CHL) 

INC HL 

RET 


: Kopierrout ine Kopiert 

09D6 47 
09D7 IR 
09D8 77 
09D9 13 
09DR 23 
09DB 05 
09DC 20F9 
090E C9 


R Bytes von CDE) nach 

LD B.R 

LD R . CDE) 

LD C HL ) . R 

INC DE 

INC HL 

DEC B 

3R NZ.0907H 

RET 


CHL) 

:B - Zähler 
:Byte von CDE) holen 
:und in CHL) ablegen 
sZeiger +1 

; Zähler -1 
:Fertig ? 
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Vorzeichenbehandlung für Qrundrechenar ten 

Mantissen von X und BCDE richtig stellen (Höchstes Bit auf 1) 
und Vorzeichen verrechnen 

I; X » Zahl einfacher oder doppelter Genauigkeit 
BCDE - wie X 

Os Mantisse von X und BCDE richtig (höchstes Bit - 1) 

A.7 * l wenn Signs beider Zahlen identisch, sonst A.7 * 0 


09DF 
09E2 
09E3 
09E4 
09E5 
09E6 
09E7 
09E8 
09EA 
09E9 
09EB 
09EC 
09ED 
09EE 
09EF 
09F0 
09F 1 
09F2 
09F3 


7E 

07 

37 

iF 

77 

3F 

1F 

23 

23 

77 

79 

07 

37 

1F 

4F 

1F 

AE 

C9 


L0 

LD 

RLCA 

SCF 

RRA 

LD 

CCF 

RRA 

INC 

INC 

LD 

LD 

RLCA 

SCF 

RRA 

LD 

RRA 

XOR 

RET 


HL.4123H 
A. (HL) 


(HL) . A 


(HL) . 
A.C 


(HL) 


: HL - MSB von X 

; A » MSB von X 

sCV und A.O - Sign von X 

;CY - i 

: A . 7 ■ CY « i. CY - A.O » Sign 
sMantisse richtig stellen 
:CY invertieren 
:A.O - invertiertes Sign 

; HL - 4125H (Signflcg) 
sSignflag retten 

sdesgl. mit BCDE aber Sign lassen 


sSigns verknüpfen 


: X = Y (SNG.DBL) 


09F4 212741 


LD 


HL.4127H 


: HL » Zeiger auf Y 


: X = (HL) (SNG.DBL) 


09F7 1 1D209 
09FA 1806 


LD 


JR 


DE.09D2H 

0A02H 


:DE ■ Adresse der Kopierrout ine 
; ( HL ) -> (DE) 

: weit er bei 0A02H 


; Y » X (SNG.DBL) 


09FC 212741 


LD 


HL.4127H : HL = Zeiger auf Y 


; (HL) «X (SNG.DBL) 


09FF 11D309 


0A02 05 
0A03 112141 
0A06 E7 
0A07 D8 
0A08 111D41 
OAOB C9 


LD DE.0903H 

PUSH DE 

LD 0E.4121H 

RST 20H 

RET C 

LD DE.4UDH 

RET 


DE * Adresse der Kopier rout ine 
(OE) -> (HL) 

Adresse für RET in Stack 
DE = Zeiger auf X ( SNG) 

TSTTYP 

DE ok wenn X SNG 

sonst DE « Zeiger auf X ( DBL ) 
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CP X , BCDE C SNG) 


0. S - 1 

1. S - 0 
0. S - 0 


l : - 

0: wenn X < BCDE: B 

wenn X ■ BCDE: B 

wenn X > BCDE : B 

0B0C 78 
OBOD B7 
OBOE CB5509 
OBI 1 215E09 
OB 1 4 E5 
OB l 5 CD5509 
OB 18 79 
OB 1 9 C8 

0B1B 212341 
OB 1 D BE 
OB IE 79 
OB 1 F F8 

0B20 CD260B 

0B23 1F 
0B24 B9 

0B25 C9 


- FFH . CY * 1. 2 » 

- OOH . CV - 0. Z « 

■ 01H . CY ■ 0, Z - 

LD B.B 

OR B 

3P Z.0955H 

LD HL.095EH 

PUSH HL 

CBLL 0955H 

LD B.C 

RET Z 

LD HL.4123H 

XOR C HL ) 

LD B.C 

RET M 

CBLL 0B26H 

RRB 

XOR C 

RET 


; BCDE » 0 ? 

:3a: TEST2 

:RET-Bdresse auf TEST2 legen 
: TEST2 

: B - MSB (BCDE) 

;Nach TEST2. wenn X ■ 0 
••(nur BCDE testen) 

: HL : MSB (X) 

;Signs vergleichen 
: B - MSB (BCDE) 

;nach TEST2. wenn Signs ungleich 
;Cnur BCDE testen) 

:X und BCDE Byte für Byte 
; vergleichen 
: B . 7 * CY 

;mit Vorzeichen von BCDE ver- 
: knüpfen 

:und weiter bei TEST2 


UPRO für CP (Vergleicht BCDE mit X Byte für Byte) 


0B26 23 
0B27 78 
0B28 BE 
0B29 CO 
0B2B 2B 
0B2B 79 
0B2C BE 
0B2D CO 
0B2E 2B 
0B2F 7B 
0B30 BE 
0B3 1 CO 
0B32 2B 
0B33 73 
0B34 96 

0B35 CO 
0B36 El 
0B37 El 
0B38 C9 


INC HL 

LD B.B 

CP (HL) 

RET NZ 

DEC HL 

LD B.C 

CP (HL) 

RET NZ 

DEC HL 

LD B.D 

CP (HL) 

RET NZ 

DEC HL 

LD B.E 

SUB (HL) 

RET NZ 

POP HL 

POP HL 

RET 


:Exp vergleichen 

: RET wenn ungleich 
:Oesgl. mit MSBs 

; 1 . LSB 


: 2 . LSB 

: SUBt rakt ion , damit B » OOH wenn 
;E gleich (HL) 

; RET-Rdresse entfernen (0B23H) 

: RET-Bdresse entfernen (095EH) 

: Zurück mit B * OOH. Z * 1 


77 



DE CINT) 


CP HL . 

I: - 
0: wenn HL 
wenn HL 
wenn HL 


DE : A ■ FFH . CY * 1 . Z 
DE: ft = 00H. CY - 0. Z 
DE: ft - OIH , CY » 0. Z 


0. S = 1 
1 . S - 0 
0. S * 0 


0ft39 7 ft 
0ft3ft ftC 
0ft3B 7C 
0ft3C Fft5F09 
0ft3F Bft 
0ft40 C26009 
0A43 70 
0A44 93 

0ft45 C26009 
0ft48 C9 


LD 

XOR 

LD 

DP 

CP 

DP 

LD 

SUB 

DP 

RET 


ft.D 

H 

ft.H 

M.095FH 

D 

NZ.0960H 

ft.L 

E 

NZ.0960H 


:Signs vergleichen 
: A » MSB CHL) 

:Nach TEST2, wenn Signs ungleich 
; MSBs vergleichen 
:Nach TEST2 wenn ungleich 
:LSBs vergleichen 

: SUBt raht ion , damit ft - OOH wenn 
: L gleich E 

: Nach TEST2 wenn LSBs ungleich 


CP X . (DE) CDBL) 

I 

0 : wenn X < ( DE ) : ft = FFH. CY * 1 . Z « 0 . S 

wenn X * (DE): ft « OOH. CY - 0. Z * 1. S 

wenn X > (DE): ft « OIH. CY = 0. Z * 0. S 


0 

0 


0A49 212741 
0A4C CDD309 
0A4F 112E41 
0R52 lft 
0A53 B7 
0A54 CA5509 
0ft57 215E09 
0R5ft E5 
0ft5B CD5509 
0ft5E 1B 
0A5F lft 
0ft60 4F 
0R61 C8 
0ft62 212341 
0A65 ftE 
0A66 79 
0A67 F8 
0A68 13 
0A69 23 
0A6A 0608 
0ft6C lft 
0ft6D 96 
0R6E C2230A 
0A7 1 1B 
0R72 2B 
0ft73 05 
0ft74 20F6 
0A76 CI 
0ft77 C9 


LD HL.4127H 

CftLL 09D3H 

LD 0E.412EH 

LD ft.CDE) 

OR ft 

DP Z.0955H 

LD HL.095EH 

PUSH HL 

CALL 0955H 

DEC DE 

LD ft.CDE) 

LD C.ft 

RET Z 

LD HL.4123H 

XOR (HL) 

LD ft.C 

RET M 

INC DE 

INC HL 

LD B.08H 

LD ft.CDE) 

SUB CHL) 

DP NZ.0A23H 

DEC DE 

DEC HL 

DEC B 

DR NZ.0A6CH 

POP BC 

RET 


: HL : Zeiger auf Y 
: Kopiere (DE) nach CHL) 

: DE : Exp CY) 

: ft - Exp CY) 

:Y * o ? 

:0a: TEST2 ausführen 
: HL = RET-Adresse nach TEST2 

: TEST2 

: DE : MSB CY) 

: ft - MSB CY) 

:C « MSB CY) (für TEST2) 

: TEST2 mit Y wenn X * 0 
: HL : MSB CX) 

:Signs vergleichen 
: ft = MSB CY) 

:TEST2 mit Y wenn Signs ungleich 
: DE : Exp CY) 

: HL : Exp CX) 

:B - Zähler für 8 Bytes 
:X und Y Byte für Byte 
: vergleichen 

iweiter bei 0A23H wenn ungleich 
:sonst Zeiger +1 

: Zähler -1 

:Nächstes Byte vergleichen 
: RET-Adresse löschen C095EH) 
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CP X . Y CDBL) 

I: - 

0: wenn X < Y: A « FFH . CY » 1. Z « 0. S - 1 

wenn X * Y: A - OOH . CY « 0. Z « 1. S-0 

wenn X > Y: A « 01H. CY ■ 0. Z - 0. S * O 


0A78 CD4F0A 
0A7B C25E09 
0A7E C9 


CALL 0A4FH :Vergleiche X mit Y 

CP NZ.095EH : Nach TEST2 wenn X <> Y 

RET 


X « HL » CINT C X ) 


0A7F E7 
0A80 2A2141 
0A83 F8 

0A84 CAF60A 
0A87 04B90A 
0A8A 21B207 
0A8D ES 
0A8E 3A2441 
0A91 FE 90 
0A93 300E 
0A95 CDFBOA 
0A98 EB 
0A99 Dl 


RST 

LD 

RET 

CP 

CALL 

LD 

PUSH 

LD 

CP 

CR 

CALL 

EX 

POP 


20H 

HL. C4121H) 
M 

Z.0AF6H 
NC .0AB9H 
HL.07B2H 
HL 

A. C4124H) 
90H 

NC . 0AA3H 
OAFBH 
DE. HL 
DE 


; TSTTYP 
: HL ■ X ( INT) 

.•Fertig wenn X bereits im 
: INT-For mat 

:TM-Error, wenn X im STR-Format 
: CSNG . wenn X im DBL-Format 
: OV-Er ror als RET-Adr setzen 

: A - Exp (X) 

: Exp > 2 hoch 16 7 C 16 Bit) 

:Ca: Dann X genau -32768 0 
; Nein : DE « INT-Wert von X 
:HL ■ INT-Wert 

: RET-Adresse löschen C07B2H) 


X - HL CINT) und VT * INT setzen 


0A9A 222141 


LD C 41 21H ) . HL : INT-Wert nach X 


VT auf INT setzen 


0A9D 3E02 
0A9F 32AF40 
0AA2 C9 


LO A.02H : A * 02H 

LD C 40AFH ) . A : VT setzen 

RET 


Fortsetzung von CINTCX) 

Ist X genau -32768 ? (also noch im INT-Format 7) 


0AA3 018090 

LO 

BC . 9080H 

: BCDE » -32768 

0AA6 110000 

LD 

DE . OOOOH 


0AA9 CDOCOA 

CALL 

OAOCH 

:X und BCDE vergleichen 

OAAC CO 

RET 

NZ 

: RET COV-Error). wenn ungl 

OAAD 61 

LD 

H.C 

: HL - -32768 

OAAE 6A 

LD 

L.D 


OAAF 18E8 

CR 

0A99H 

:RET-Adresse löschen und 
:X » HL setzen 
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CSNQ C X 


0AB1 E7 
0AB2 EO 

0AB3 FACCOA 

0AB6 CAF60A 
0AB9 CDBF09 


0A8C CDEFOA 
OABF 78 
OACO B7 
OAC1 C 3 
0AC2 CDDF09 

0AC5 212041 
0AC8 46 
0AC9 C 39607 


RST 20H 

RET PO 

3P M. OACCH 

3P Z.0AF6H 

CRLL 09BFH 


CALL OAEFH 

LD A.B 

OR A 

RET Z 

CALL 090PH 

LD HL.4120H 

LD B.(HL) 

3P 0796H 


: TSTTYP 

;Fertig wenn X bereits im 
: INT-Format 

; weiter bei OACCH. wenn X im 
: INT-Format 

:TM-Error. wenn X im STR-Format 
: BCDE = X (SNG) (Die vier nie- 
drigsten LSBs eines DBL-Wertes 
; werden weggelassen 
:VT auf SNG setzen 
: BCDE * 0 ? 

:3a: ok 

:Nein: Mantissen berichtigen. 
:Signs ausblenden 

:B * 3. LSB CXJ bei DBL 
:X * BCDE und runden 


X - CSNG ( X ) (INT) 

OACC 2A2141 LD HL.(4121H) :HL * INT-Wert 


X - CSNG ( HL ) (INT) 


OACF CDEFOA CALL 

0AD2 7C LD 

0AD3 55 LD 

0A04 1E00 LD 

0A06 0690 LD 

0AD8 C36909 3P 

X - CDBL ( X ) 

OADB E7 RST 

OADC DO RET 

OAOD CAF60A 3P 

OAEO FCCCOA CALL 

0AE3 210000 LD 

0AE6 221041 LD 

0AE9 221F41 LD 

VT auf DBL setzen 

OAEC 3E08 LD 

OAEE 013E04 LO 

VT auf SNG setzen 

*OAEF 3E04 LD 

OAF 1 C39F0A 3P 


OAEFH 


E.OOH 

B.90H 

0969H 


VT auf SNG setzen 
A « MSB (HL) 

D - LSB (HL) 

E = OOH 

B = 90H (Exp für 2 hoch 16) 
Nach FLOAT springen 


20H 

NC 

Z.0AF6H 
M. OACCH 
HL.OOOOH 
( 41 1DH ) .HL 
(41 1FH) .HL 


: TSTTYP 

.•Fertig wenn X bereits im 
:DBL-Format 

;TM-Error. wenn X im STR-Format 
: CSNG . wenn X im INT-Format 
: LSBs einfach auf OOH setzen 


A.08H : A « 08H 

BC.043EH 


A.04H : A » 04H 

0A9FH : VT = A 
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Test ob X im STR-Format sonst TM-Error 




0AF4 E7 
0AF5 C8 


RST 20H : TSTTYP 

RET Z ;X im STR-Format ? 

:3a: RET 


: TM - Error 

0AF6 1E18 LD 

0AF8 C3A219 3P 

: UPRO Tür INT. FIX. CINT 
: I: X » SNG-Wer t mit Exp <« 98H (2 hoch 24) 
(also mit Nachkommastellen) 

; A - Exp CX) 

: 0: OE » INT-Ulert von X 


E. 18H 
19A2H 


:E « Fehlercode 

:Zur Feh l er rout ine springen 


OAFB 47 
OAFC 4F 
OAFD 57 
OAFE 5F 
OAFF B7 
0B00 C8 
0B0 1 E5 
0B02 C0BF09 
0B05 CDÜF09 


0B08 AE 
0B09 67 
OBOA FC 1 FOB 

OBOD 3E98 


OBOF 90 
OB 10 CDD707 


OB 13 7C 
OB 1 4 17 
OB 15 DCA807 
OB 18 0600 
OB 1 A DCC307 
OB 1 D El 
OB IE C9 


LD B.A 

LD C.A 

LD D.A 

LD E.A 

OR A 

RET Z 

PUSH HL 

CALL 09BFH 

CALL 09DFH 


XOR (HL) 

LD H.A 

CALL M. OBI FH 

LD A.98H 


SUB B 

CALL 07D7H 


LD A.H 

RLA 

CALL C.07A8H 

LD B.OOH 

CALL C.07C3H 

POP HL 

RET 


; BCDE 


A 


:A * 0 ? 

:3a: RET mit DE » OOOOH 
: HL retten 
: BCDE ■ X 

:Mantisse und Sign behandeln 
:(Von X und BCDE. Signs immer 
: gl eich . da BCDE * X) 

: A , 7 - Sign von BCOE bzw X 
: H . 7 = Sign (X) 

: Ist X negat i v ? 

:3a: BCDE abrunden 
: A = Exp für 2 hoch 24 
:(24 Bit Mantisse, keine 
: Nachkommastel len) 

: A » 98H - Exp CX) 

:CDE um A Bits nach rechts 
:schieben (B wird LSB) 

:Alle Nachkommastellen 
: rausschieben 
; A , 7 = Sign CX) 

:CY » Sign 

:CDE aufrunden, wenn X negativ 
: LSB löschen 

:CDEB invertieren, wenn X negat 
;HL zurück 


81 



BCDE abrunden 


OB 1 F 1B 
0B20 7A 
0B21 A3 
0B22 3C 
0B23 CO 
0B24 OB 
0B25 C9 


DEC DE 

LD A.D 

AND E 

INC A 

RET NZ 

DEC BC 

RET 


; LSBs abrunden 
; LSBs prüfen 
: War DE * OOOOH *> 

:3a: Dann ist A jetzt OOH 
: Fertig wenn LSBs <> O waren 
: Sonst MSBs abrunden 


X 


FIX C X ) 


0B26 E7 
0B27 F8 

0B28 CD5509 
0B2B F2370B 
0B2E CD8209 
0B3 1 C0370B 
0B34 C37B09 


RST 20H 

RET M 

CALL 0955H 

3P P.0B37H 

CALL 0982H 

CALL 0B37H 

3P 097BH 


TSTTYP 

Fertig wenn X bereits im 

INT-Format 

TEST2 

INTCX) ausführen, wenn X >■ 0 
X » -X 

INTCX) ausführen 
X * ABS CX) und RET 


X - INT C X ) 


0B37 E7 
0B38 FS 

0B39 30 IE 

0B3B 28B9 


RST 20H 

RET M 

3R NC.0B59H 

3R Z.0AF6H 


TSTTYP 

Fertig wenn X bereits im 
INT-Format 

weiter bei 0B59H wenn X im 
DBL-Format 

:TM-Error. wenn X im STR-Format 


X - INT C X ) CSNG) 

I: X = SNG-Wert 

0: X * SNG-Wert ohne Nachkommastellen 
A - LSB des INT-Wertes von X 


0B3D CD8E0A 
0B40 212441 
0B43 7E 
0B44 FE 98 


CALL 0A8EH 

LD HL.4124H 

LD A.CHL) 

CP 98H 


0B46 
0B49 
0B4A 
0B4B 
0B4E 
0B50 
OBS 1 
0B52 
OB 53 
)B54 
0B57 


3A2141 

00 

7E 

CDFBOA 

3698 


F5 

79 

17 

C36207 


Fl 


0B58 C9 


LD A.C4121H) 

RET NC 

LD A.CHL) 

CALL OAFBH 

LD CHD.98H 

LD A.E 

PUSH AF 

LD A.C 

RLA 

CALL 076 2H 

POP AF 

RET 


: X * CINT CX) CSNG) 

: HL : Exp CX) 

; A » Exp CX) 

: Exp >= 2 hoch 24 
:3a: Dann hat X Heine 
;Nachkommastel len 
: A = LSB 

:Fertig wenn Exp CX) >■ 98H 
: A = Exp CX) 

:Nachkommastel len entfernen 
:Exp auf 2 hoch 24 setzen 
: A « LSB 
: LSB retten 
: A = MSB 
: S ign nach CY 
: FLÜAT auf rufen 
: LSB zurück nach A 
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INT C X ) (DBL) 


0B59 212441 
0B5C 7E 
0B5D FE90 
0B5F DR7F0R 
0B62 2014 
0B64 4F 
0B65 2B 
0B66 7E 
0B67 EE80 
0B69 0606 
0B6B 2B 
0B6C B6 
0B6D 05 
0B6E 20FB 
0B70 B7 
0B7 1 210080 
0B74 CR9R0R 
0B77 79 
0B78 FEB8 

0B7R DO 

0B7B F5 
0B7C CDBF09 
0B7F CDDF09 
0B82 RE 
0B83 2B 
0B84 36B8 
0B86 F5 
0B87 FCROOB 
0B8R 212341 
0B80 3EB8 
0B8F 90 
0B90 CD690D 


0B93 Fl 
0B94 FC200D 

0B97 RF 
0B98 321C41 
0B9B Fl 
0B9C DO 

0B9D C3D80C 


LD HL.4124H 

LD R.(HL) 

CP 90H 

3P C.0R7FH 

OR NZ.0B78H 

LD C .9 

DEC HL 

LD R.(HL) 

XOR 80H 

LD B.06H 

DEC HL 

OR (HL) 

DEC B 

OR NZ.0B6BH 

OR R 

LO HL.8000H 

OP Z.0R9RH 

LD R.C 

CP 0B8H 

RET NC 

PUSH RF 

CflLL 09BFH 

CRLL 09DFH 

XOR CHL) 

DEC HL 

LD CHL5.0B8H 

PUSH RF 

CRLL M. OBROH 

LD HL.4123H 

LD R.0B8H 

SUB B 

CRLL 0D69H 


POP RF 

CRLL M.0020H 

XOR R 

LO (41 ICH ) , R 

POP RF 

RET NC 

OP 0CD8H 


: HL : Exp (X) 

: R » Exp (X) 

: Exp (X) < 2 hoch 16 ? 

;0a: CINT (X) ausrühren 
:Sprung wenn Exp <> 2 hoch 16 
:C = 90H (Exp ist 2 hoch 16 !) 

; HL « MSB(X) 

; R = f1SB( X) 

: R - OOH . wenn X = -32768 
:Die übrigen 6 Bytes testen 
:Zeiger -1 
:Byte testen 
: Zähler -1 
; Nächstes Byte 
; Waren alle Bytes - OOH 
: HL - -32768 (INT-Wert) 

; Oa : X war - 32768 
: R - Exp (X) * 90H (wegen 0B64H) 
;Exp >* 2 hoch 56 ? 

: ( 56 Bit riantisse) 

:0a: Keine Nachkommastel l en 
: vorhanden 
:Exp retten 
: BCDE * X ( SNG) 

••Mantisse berichtigen 
:R. 7 - Sign von X bzw BCDE 
: HL : Exp (X) 

; Exp auf 2 hoch 56 setzen 
;Sign retten 

:X abrunden, wenn X negativ 
: HL =* MSB (X) 

;R - Exp für 2 hoch 56 
:Exp-Di f ferenz ausrechnen 
; ( HL ) - (HL-7) (entspricht X) 

;um R Bits nach rechts schieben 
Nachkommastellen werden 
;gelöscht 
••Sign zurück 

:Mantisse von X auf runden. 

: wenn X negativ war 
: R * OOH 

:LSB-Unter lauf von X löschen 
:Exp zurück nach R 
: Fertig wenn CRLL von 12B8H kam 
: (sonst ist CY « 1 wegen 0B7RH ) 
:weiter bei DFLORT 
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Mantisse von X (OBL) abrunden 


OBAO 

0BA3 

0BA4 

0BA5 

0BA6 

0BA7 

0BA9 


23 

28FA 

C9 


LD HL.411DH 

LD A.(HL) 

DEC (HL) 

OR A 

INC HL 

3R Z.0BA3H 

RET 


: UPRO zur Feldgrößenberechnung bei DIM 
; DE ■ OE * BC 


:HL - Zeiger auf X 
:A » Byte 
: Abrunden 
: Mar Byte - OOH ? 

: Zeiger +1 

:3a: Nächstes Byte 

;Nein: Fertig 


OBAA E5 
OBAB 210000 
OBAE 78 
OBAF Bl 
OBBO 2812 
0BB2 3E10 
0BB4 29 
0BB5 DA3D27 
0BB8 EB 
0BB9 29 
OBBA EB 
OBBB 3004 
OBBO 09 
OBBE DA3027 
OBC 1 3D 
0BC2 20F0 
0BC4 EB 
0BC5 El 
0BC6 C9 


PUSH HL 

LD HL . OOOOH 

LD A.B - 

OR C 

3R Z.0BC4H 

LD A.10H 

ADD HL. HL 

3P C.273DH 

EX DE. HL 

ADD HL. HL 

EX DE. HL 

3R NC , OBC 1H 

ADD HL . BC 

3P C.273DH 

DEC A 

3R NZ.0BB4H 

EX DE. HL 

POP HL 

RET 


: PTZ retten 
:Ergebnis ■ OOOOH 
: BC ■ 0 ? 

:3a: RET mit Ergebnis 0 
: A • Zähler für 16 Bit 
:Ergebnis links schieben 
:BS-Error. wenn Überlauf 
: HL retten 

:Höchstes Bit von DE nach CV 
: HL zurück 

: Sprung, wenn Bit * 0 
:Sonst BC zum Erg. addieren 
: BS-Er ror . wenn Überlauf 
: Zähler -1 
:Nächstes Bit 
:0E » Ergebnis 
: PTZ zurück 


ISUB: X * HL « DE - HL (INT) 

I : DE « Minuend 
HL * Subtrahend 

0: HL « Differenz falls im INT-Bereich 

X * Differenz (Automatische Umwandlung in SNG-Format. falls Ergebnis 
nicht im INT-Bereich) 


0BC7 7C 
0BC8 17 
0BC9 9F 

OBCA 47 
OBCB CD510C 
OBCE 79 
OBCF 98 


OBDO 1803 


LD A.H 

RLA 

SBC A.A 

LD B.A 

CALL 0C51H 

LD A.C 

SBC A.B 


3R 0BD5H 


A - MSB von HL 
CY ■ Sign von HL 
A ■ OOH. wenn HL >* 0 
A - FFH . wenn HL < 0 
B - A 

HL » -HL. CY - 1 
A • OOH (C * OOH von 0CS1H) 

A * FFH. wenn HL > ■ 0 war 
(HL ist jetzt < 0) 

A * OOH. wenn HL < 0 war 

(HL ist jetzt >- 0) 

Nach I ADO springen 

(Also DE * DE ♦ ( -HL ) ausführen) 
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I ADD : X ■ HL * DE + HL C INT) 

I : DE * i . Summand 
HL * 2. Summand 

0: HL ■ Summe falls im INT-Bereich 

x » Summe (Automatische Umwandlung ins SNG-Format. falls Ergebnis 
nicht im INT-Bereich) 


0B02 7C 
0BD3 17 
0BD4 BF 
0BD5 47 

OBDS ES 
0BD7 7A 
0BD8 17 
0BD9 9F 
OBDA 19 
OBDB 88 
OBDC OF 
OBDD AC 


OBOE F2990A 
OBEI C5 
0BE2 EB 
0BE3 CDCFOA 
0BE6 Fl 
0BE7 El 
0BE8 CDA409 
OBEB EB 
OBEC CD6B0C 
OBEF C38F0F 


LD A.H 

RLA 

SBC A.A 

LD B.A 

PUSH HL 

LD A.D 

RLA 

SBC A.A. 

ADD HL. OE 

ADC A . B 

RRCA 

XOR H 


3P P.0A99H 

PUSH BC 

EX DE. HL 

CALL OACFH 

POP AF 

POP HL 

CALL 09A4H 

EX DE. HL 

CALL 0C6BH 

OP 0F8FH 


:Vorzeichenf lag berechnen 
: ( s iehe ISUB) 

; B * OOH . wenn HL > * 0 
;B * FFH . wenn HL < 0 
:2. Summanden retten 
:Vorzeichenf lag des 2. Summanden 
: berechnen 

: Addition aus rühren 
: Vorzeichenf l ags und Überlauf 
: verrechnen : 

:A.7 ist gesetzt, wenn bei 
••gleichem Vorzeichen der beiden 
:Summanden. ein Überlauf erfolgt 
:ist oder bei verschiedenem 
sVorzeichen kein Überlauf 
:erfolgte 

: A . 7 * 0 ? 3a: Ergebnis ist ok 
:Signflag des 2. Summanden retten 
:HL - 1. Summand 
: X - CSNG CHL) 

:Signflag zurück 
:2. Summand zurück 
: (SP) ■ X « 1. Summand 
:DE = 2. Summand 
: X - SFLOAT (DE) 

; X ** X + (SP) (Addition im 
: SNG-Format ) 
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IMUL: X - HL - DE * HL ( INT) 

I : DE - Mul t ipl i Kant 

HL * Multiplikator (beide Werte im INT-Format) 


0: HL - Produkt falls im INT- 

Bereich 


X 

* Produkt (Automatische 
nicht im INT-Bereich) 

Umwandlung ins 

SNG-Format , falls Ergebnis 

0BF2 

7C 

LD 

A.H 

HL * 0 ? 

0BF3 

B5 

OR 

L 


0BF4 

CA9A0A 

DP 

2 . 0A9AH 

Da: Ergebnis - 0 

0BF7 

E5 

PUSH 

HL 

Multiplikator retten 

0BF8 

D5 

PUSH 

DE 

Multiplikant retten 

0BF9 

C0450C 

CALL 

0C45H 

Sign ausblenden. Beide Zahlen 
positiv machen 

OBFC 

C5 

PUSH 

BC 

Signflag retten (B.7 = 0 bei 
gleichen Vorzeichen) 

OBFD 

44 

LD 

B.H 

BC - HL 

OBFE 

40 

LD 

C.L 


OBFF 

210000 

Lü 

HL . OOOOH 

Ergebnis * 0 

0C02 

3E10 

LO 

A. 10H 

A - Zähler für 16 Bits 

0C04 

29 

ADD 

HL. HL 

Ergebnis links schieben 

0C05 

38 1F 

DR 

C.0C26H 

Überlauf Da: weiter bei 0C26H 

0C07 

EB 

EX 

DE. HL 

Nächstes Bit von DE nach CY 

0C08 

29 

ADD 

HL. HL 


0C09 

EB 

EX 

DE. HL 


OCOA 

3004 

DR 

NC.0C10H 

Sprung wenn Bit nicht gesetzt 

OCOC 

09 

ADD 

HL . BC 

BC zum Ergebnis addieren, wenn 
: B i t in DE gesetzt war 

OCOD 

DA260C 

DP 

C.0C26H 

iSprung bei Überlauf 

0C10 

30 

DEC 

A 

: Zäh l er -1 

0C11 

20F 1 

DR ' 

N2.0C04H 

: Nächstes Bit 

OC 1 3 

CI 

POP 

BC 

:Signflag zurück 

OC 14 

Dl 

POP 

DE 

iMultipl ikant zurück 

OC 1 5 

7C 

LD 

A.H 

Ist das Ergebnis negativ ° 

OC 16 

B7 

OR 

A 

: bzw . Ist ein Überlauf in das 
Vorzeichenbit erfolgt 7 (>32767! 

OC 17 

FA1F0C 

DP 

M . OC 1 FH 

: Da : weiter bei 0C1FH 

OC 1 A 

Dl 

POP 

DE 

Multiplikator zurück 

OC 1 B 

78 

LO 

A.B 

: A ■ Signflag 

0C1C 

C34D0C 

DP 

0C4DH 

:Sign des Ergebnisses setzen 

Überl 

.auf ins 

15. Bit (Vorzeichenbit) 


Da beide Faktoren positiv gemacht wurden, muß das Ergebnis auch positiv sein, 
d.h. das 16. Bit muß 0 sein 

OC 1 F 

EE80 

XOR 

80H 

A * OOH . wenn H ■ 80H 

0C21 

B5 

OR 

L 

Ist HL * 8000H ■ 32768 ? 
(ohne Vorzeichen) 

0C22 

2813 

DR 

Z.0C37H 

Da: weiter bei 0C37H 

0C24 

EB 

EX 

DE .HL 

Nein: HL * Mul tiol ikant 

0C25 

01C1E1 

LO 

BC . 0E1C1H 

-- 
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; Überl au r bei IMUL 

: Beide Faktoren in SNG-Format umwandeln und dann SMUL aus führen 


*0C26 CI 
*0027 El 

0C28 CDCFOA 
0C2B El 
0C2C CDA409 
0C2F CDCFOA 
0C32 CI 
0C33 Dl 
0C34 C34708 


POP 

POP 

CALL 

POP 

CALL 

CALL 

POP 

POP 

OP 


09A4H 

OACFH 


:B - Signflag 
: HL = Multiplikant 
: X * CSNG CHL) 

: HL « Multiplikator 
: ( SP 5 ■ X = Multiplikant 
: X * CSNG CHL) * Multiplikator 
; BCDE = CSP) - Multiplikant 

;X - BCDE * X CSNG) 


; Das Ergebnis ist 32768 C ohne Vorzeichen) 


0C37 78 
0C38 B7 
0C39 CI 
0C3A FA9A0A 

0C3D D5 
0C3E CDCFOA 
0C41 Dl 
0C42 C38209 


LD A.B- 

OR A 

POP BC 

OP M.0A9AH 

PUSH DE 

CALL OACFH 

POP DE 

OP 0982H 


: A ■ Signflag 
Ungleiche Vorzeichen ? 

:Stack korrigieren 
:0a: Ergebnis » 8000H = -32768 
:Nein : Das Ergebnis ist +32768 
: DE retten 

: X * CSNG CHL) - -32768 
:DE zurück 

:X * -X CErgebnis « +32768) 


Vorzeichenprüf ung bei IMUL: 

Bei DE und HL das Vorzeichen ausblenden Cpositiv machen) 
I: DE - Multiplikant 

HL = Multiplikator Cbeide Werte im INT-Format) 

0: DE * ABS C Mul t ipl ikator ) 

HL ■ ABS C Mul t ipl ikant ) 

B.7 = 0 bei gleichen Vorzeichen, sonst B.7 » 1 


0C45 7C 
0C46 AA 
0C47 47 
0C48 CD4C0C 
0C4B EB 
0C4C 7C 
0C4D B7 
0C4E F29A0A 


LD A.H 

XOR D 

LD B.A 

CALL 0C4CH 

EX DE. HL 

LD A.H 

OR A 

OP P.0A9AH 


;Vorzeichen von HL 
.•und DE verknüpfen 
: B . 7 = 0 bei gleichen Vorzeichen 
; HL - ABS CHL) 

: desg l . mit DE 
: HL testen 

:0K. wenn HL >• 0 


X * HL = -HL CINT) 

I: HL « INT-Wer t 

0: HL * Negativer INT-Wert 

X * HL und VT ■ INT 


0C51 AF 
0C52 4F 
0C53 95 
0C54 6F 
0C55 79 
0C56 9C 
0C57 67 


0C53 C39A0A 


XOR A 

LD C .A 

SUB L 

LD L , A 

LD A.C 

SBC A.H 

LD H . A 

OP 0A9AH 


: A * OOH 
: C * OOH 

: L = OOH - L 
: A * OOH 

: H * OOH - H - CY 
: HL nach X und VT » INT 
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X » -X (INT) 

Umwandlung in SNG. Talls X * -32768 
(denn +32768 ist nicht mehr im INT-Bereich 


0C5B 2B2141 
0C5E CQ510C 
0C61 7C 
0C62 EE80 
0C64 B5 
0C65 CO 
0C66 EB 
0C67 CDEFOB 
0C6B BF 
0C6B 0698 
0C60 C36909 

X*X-Y=X+ C-Y) 


LD HL.C4121H) 

CBLL 0C51H 

LD B.H 

XOR 80H 

OB L 

RET NZ 

EX DE. HL 

CBLL OBE FH 

XOR B 

LD B.98H 

DP 0969H 

CDBL) 


: HL * X 

:X - HL - -HL 

; Mar HL = -32768 ? 


:Nein: Wert ok 
DE = Wert 
: VT * SNG 
B ■ OOH 

;B - Exp für 2 hoch 24 
Nach FLOBT springen 


0C70 212D41 
0C73 7E 
0C74 EE80 
0C76 77 

X » X + Y CDBL) 


LD HL.412DH 

LD B.CHL) 

XOR 80H 

LD ( HL ) . B 


: HL : MSB (Y) 
; Y = -Y 


0C77 

0C7B 

0C7B 

0C7C 

0C7D 

0C7E 

0C7F 

0C80 

0C83 

0C84 

0C85 

0C88 

0C89 


212E41 

7E 


B7 

CRF409 


0C8B 2F 
0C8C 3C 
0C8D F5 
0C8E 0E08 
0C90 23 
0C91 E5 
0C92 1B 
0C93 46 
0C94 77 
0C95 78 
0C96 12 
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LD HL.412EH 

LD B.CHL) 

OR B 

RET Z 

LD B.B 

DEC HL 

LD C.(HL) 

LD DE.4124H 

LD R.CDE) 

OR B 

DP Z.09F4H 

SUB B 

DR NC.0CB1H 

CPL 

INC B 

PUSH BF 

LD C.08H 

INC HL 

PUSH HL 

LD B.CDE) 

LD B.CHL) 

LD ( HL ) . B 

LD B.B 

LD (DE).B 


; HL : Exp (Y) 

: B = Exp (Y) 

;Y = 0 ? C Exp CY) - 0 ->) 

: Da : X ist Ergebnis 
;B * Exp (Y) 

; HL : MSB (Y) 

;C = MSB CY) 

: DE : Exp CX) 

:R - Exp CX) 

;X » 0 ° C Exp CX) » 0 ?) 

: Da : X * Y CY ist Ergebnis) 

: B a Exp CX) - Exp CY) 

:Sprung. wenn Exp CX) >= Exp CY) 
.•Sonst X und Y vertauschen 
: B » -B 

:B +1 für 2er Komplement 
: Exp-Di f f erenz retten 
:8 Bytes vertauschen 
; HL auf Exp CY) zeigen lassen 
:Zeiger retten 
: Bytes von COE) 

: und CHL) 

: vertauschen 





0C97 1B 
0C98 29 
0C99 00 
0C9A 20F6 
0C9C El 
0C9D 46 
0C9E 2B 
0C9F 4E 
0CA0 Fl 


0CA1 FE39 

0CA3 DO 

OC A4 F5 
0CA5 C0DF09 

0CA8 23 
0CA9 3600 
OC AB 47 
OCAC Fl 
OC AD 212041 
OCBO C06900 


0CB3 3A2641 
0CB6 321C41 
0CB9 78 
OCBA B7 
OCBB F2CF0C 
OCBE CD330D 
0CC1 D20E0D 
0CC4 EB 
0CC5 34 
0CC6 CAB207 
0CC9 CD900D 


OEC DE 

DEC HL 

DEC C 

OR NZ.0C92H 

POP HL 

LD B.CHL) 

DEC HL 

LD C.CHL) 

POP AF 


CP 39H 

RET NC 

PUSH AF - 

CALL 09DFH 

INC HL 

LD (HL).OOH 

LD B.A 

POP AF 

LD HL.412DH 

CALL 0D69H 


LD A.C4126H) 

LD (41 ICH ) , A 

LD A.B 

OR A 

OP P.OCCFH 

CALL 0D33H 

OP NC.OOOEH 

EX DE. HL 

INC C HL 3 

OP Z.07B2H 

CALL 0D90H 


OP OOOEH 


: Zeiger -1 

: Zähler -1 
: Nächstes Byte 
:Zeiger auf Exp (X) zurück 
;B « Exp (X) 

:C - MSB CX) 

:Exp-Oi r ferenz zurück 

:In X ist jetzt der größere 

; Summand 

: Exp-Di f f . größer als 2 hoch 56 * 
: ( 56 Bits DBL -Mant i sse 1 
:0a: Y ist zu klein, die Summe 
:würde X nicht verändern 
: Exp-Di f ferenz retten 
:Mantissen berichtigen. Vor- 
zeichen verrechnen 
: HL : Exp (X) 

:Exp auf 0 setzen 
:Signflag nach B retten 
:Exp-Di f ferenz zurück 
: HL - Zeiger auf Y 
: ( HL ) bis (HL-7) um A Bits nach 
; rechts schieben (X und Y auf 
;gleichen Exponenten bringen! 
:Unterlauf nach 
:X kopieren 
: A » Signriag 

:Waren die Vorzeichen gleich ? 
.•Nein: weiter bei OCCFH 
:0a: Mantissen addieren 
: Sprung, wenn kein Überlauf 
: Über lauf: HL : Exp (X) 

: Exp (X) +1 

:OV-Error. wenn Exp-Überlauf 
:X um 1 Bit nach rechts schieben 
: (X - X/2. da durch Exp +1 
:X mit 2 multipliziert wurde) 

: wei ter bei ODOEH 


Ungleiche Vorzeichen: Mantissen subtrahieren 


OCCF CD4500 
0CD2 212541 
0CD5 DC570D 


CALL 0D45H 

LD HL.4125H 

CALL C.0D57H 


:Mantissen subtrahieren 
: HL : Signflag 

:Mantisse von X bei Unterlauf 
: negieren 
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OFLOAT CDBL) 

DBL-Mantisse solange nach links schieben, bis das höchste Bit der Mantisse 
gleich 1 und der Exponent möglichst klein ist 


0C08 AF 
0CD9 47 
OCDA 3A2341 
OCDD B7 
OCDE 20 IE 


OCEO 211C41 
0CE3 0E08 
0CE5 56 
0CE6 77 
0CE7 7A 
0CE8 23 
0CE9 00 
OCEA 20F9 
OCEC 78 
OCED D608 
OCEF FECO 

0CF1 20E6 
0CF3 C37807 


Bitweise weiterschi 

0CF6 05 
0CF7 211C41 
OC FA C09700 

OCFD B7 
OC FE F2F60C 
0D01 78 

0002 B7 

0003 2809 
0D05 212441 
0008 86 
0D09 77 

OOOA 027807 


0000 C8 
ODOE 3A1C41 

0011 B7 

0012 FC200D 
0015 212541 

0018 7E 

0019 E680 


XOR A 

LD B.A 

LD A.C4123H) 

OR A 

0R NZ.OCFEH 


LD HL .411 CH 

LD C.08H 

LD D.(HL) 

LO (HL).A 

LD A.D - 

INC HL 

DEC C 

OR NZ.0CE5H 

LD A.B 

SUB 08H 

CP OCOH 

OR NZ.0CD9H 

OP 0778H 


OEC B 

LD HL . 4 1 ICH 

CALL 0D97H 

OR A 

OP P.0CF6H 

LD A.B 

OR A 

OR Z.OOOEH 

LD HL.4124H 

AOO A.(HL) 

LD (HL) .A 

OP NC.0778H 


RET Z 

LD A , ( 4 1 ICH ) 

OR A 

CALL M.0D20H 

LD HL.4125H 

LD A.CHL) 

AND 90H 


: A » OOH 

:B * Verschiebungszäh l er 
; A - MSB (X) 

; MSB * 0 ? 

;Nein: Bits des MSBs testen 
:0a: X um 1 Byte nach links 
:schieben: 

:HL ■ Zeiger auf Unterlauf von X 

:C * Zähler für 8 Bytes 

:Neues Byte holen 

:Altes Byte einsetzen 

;Altes Byte ■ Neues Byte 

:Zeiger +1 

: Zäh l er -1 

:Nächstes Byte 

: A * Verschiebungszähl er 

: 8 (für 8 Bits) abziehen 

.•schon -64 erreicht ? 

;Cschon 8 Bytes verschoben ?) 
:Nein: MSB neu testen 
:0a: Alle Bytes von X waren OOH 
:dann X * 0 setzen 


: Verschiebungszähler -1 
: HL : Unterlauf von X 
; ( HL ) bis CHL+7) (also X) um 
:1 Bit nach links schieben 
; A ■ Neues MSB. A.7 ■ 1 ? 

:Nein: weiter verschieben 
:A = Verschiebungszähi er 
:Nichts verschoben ? 

;0a: X fertig 

:Nein: Von Exp die Anzahl der 
; verschobenen Bits abziehen 
: (Eine Verschiebung ist gleich- 
bedeutend mit X = X * 2) 

:X gleich 0 setzen wenn kein 
.•Überlauf entstand (Der Verschie- 
bungszähler ist negativ !) 

: Fertig wenn Exp « 0 
: A = Unterlauf Byte 
: A . 7 = 1 ? 

:0a: X auf runden 
: HL : Signf'.ag 
: A = Sign f l ag 

:Sign maskieren. A.7 * 1 bei 
:gleichen Vorzeichen 


?0 



00 1B 2B 
001C 2B 
00 ID AE 
001E 77 
00 1 F C9 


OEC HL 

DEC HL :HL : MSB CX) 

XOR C HL ) :Signflag mit MSB CX) verknüpfen 

LD CHL).A ; Neuen MSB incl. Sign setzen 

RET 


: X CDBL) aufrunden 


0020 211041 
0023 0607 
0025 34 
0D26 CO 

0027 23 

0028 05 

0029 20FA 
002B 34 
0D2C CAB207 
0D2F 2B 
0D30 3680 
0032 C9 


LD HL.4UDH 

LD B.07H 

INC CHL) 

RET HZ 

INC HL 

OEC B 

3R NZ.0025H 

INC CHL)- 

3P Z.07B2H 

DEC HL 

LD CHD.80H 

RET 


: Mantissen von X und V addieren 


: HL : LSB CX) 

:7 Bytes Mantisse 
: Byte +1. Überlauf ? 

:Nein: Fertig 
:3a: Zeiger -t-1 
.•Zähler +1 

.•Nächstes Byte auf runden 
: Be i Überlauf vom MSB: Exp +i 
:OV-Error bei Überlauf des Exp 
: Sonst MSB. 7 auf 1 setzen 


0033 212741 
0036 1 1 1D41 

0039 0E07 
0D3B AF 
0D3C 1A 
0D3D 8E 
0D3E 12 
003F 13 

0040 23 
0D4 1 00 
0D42 20F8 
0044 C9 


LD HL.4127H 

LD DE.4UDH 

LD C.07H 

XOR A 

LD A.CDE) 

ADC A.CHL) 

LD C DE ) . A 

INC DE 

INC HL 

DEC C 

3R NZ.0D3CH 

RET 


: HL : LSB CY) 

: OE : LSB CX) 

: 7 Bytes Mantisse 
:CY = 0 

:A * Byte von X 
;Byte von Y aufaddieren 
: Summe in X ablegen 
:Zeiger +1 

: Zähl er -l 
Nächstes Byte 


: Mantissen von X und Y subtrahieren 


0D45 212741 
0048 111D41 
0D4B 0E07 
0D40 AF 
0D4E 1A 
004F 9E 

0050 12 

005 1 13 

0052 23 

0053 00 

0054 20F9 
0056 C9 


LD HL.4127H 

LO OE .411 DH 

LD C.07H 

XOR A 

LD A.CDE) 

SBC A.CHL) 

LO C DE ) . A 

INC DE 

INC HL 

DEC C 

3R NZ.0D4EH 

RET 


: HL : LSB CY) 

; OE : LSB CX) 

:7 Bytes Mantisse 
:CY = 0 

:A * Byte von X 
;Byte von Y abziehen 
:Differenz in X ablegen 
;Zeiger +1 

.•Zähler -1 
:Nächstes Byte 
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Mantisse von X Cincl. Unterlauf) und Signflag negieren 


0D57 7E 
0D58 2F 

0059 77 
0D5A 211C41 
0050 0608 
0D5F AF 

0060 4F 

0061 79 

0062 9E 

0063 77 

0064 23 
0D65 05 
0D66 20F9 
0068 C9 


LD A.(HL) 

C PL 

LD (HL).A 

LD HL . 41 ICH 

LD B.08H 

XOR A 

LD C.A 

LD A.C 

SBC A.CHL) 

LD (HL).A 

INC HL 

DEC B 

3R NZ . 0D61H 

RET 


: ft - Signflag 
:Negat ion 

••Signflag zurückschreiben 
: HL : Unterlauf von X 
:8 Bytes negieren 
: A * OOH 
:C - OOH 
: A * OOH 

: A * OOH - (HL) - CY 
.‘Differenz zurückschreiben 
: Zeiger +1 
; Zähl er -1 
sNächstes Byte 


CHL) bis CHL-7) um A Bits nach rechts schieben 


0D69 71 
0D6A E5 
006B 0608 
0D6D 380E 

0D6F El 
0D70 E5 
0071 110008 

0074 4E 

0075 73 
0D76 59 
0077 2B 
0D78 15 
0079 20F9 
0D7B 18EE 


LD (HL).C 

PUSH HL 

SUB 08H 

3R C.0D7DH 

POP HL 

PUSH HL 

LD DE . 0800H 

LO C.CHL) 

LD (HL).E 

LO E.C 

DEC HL 

DEC D 

3R NZ.0074H 

3R 0D6BH 


:MSB abspeichern 
.■Zeiger retten 

:(1ehr als 8 Bits zu verschieben 
:Nein: Bits schieben bei 0D7DH 
:3a: Bytes schieben 
: Zeiger zurück 
:Zeiger retten 

:8 Bytes Mantisse (mit Unterlauf) 
:mit OOH füllen 
:C = Neues Byte 
: (HL) * Altes Byte 
: Altes Byte = Neues Byte 
:Zeiger -1 
: Zähl er -1 

:Nächstes Byte verschieben 
:Noch mehr verschieben ? 


Bitweise schieben 


0D7D C609 
0D7F 57 
0D80 AF 
0D81 El 

0082 15 

0083 C8 
0D84 E5 
0D85 1 EOS 

0087 7E 

0088 1F 
0039 77 
0D8A 2B 
0D3B :o 
003C 20F9 
0D8E 1 8F0 


ADO A.09H 

LD D.A 

XOR A 

POP HL 

DEC D 

RET Z 

PUSH HL 

LD E.08H 

LD A.(HL) 

RRA 

LD C HL ) . A 

OEC HL 

DEC E 

3R NZ.0087H 

3R 0D80H 


:SUB 08H rückgängig machen 
:D - Zähler 
: A - OOH 

:Zeiger zurück w 

: Zäh l er -1 
: RET wenn fertig 
:Zeiger retten 

:8 Bytes Mantisse (mit Unterlauf) 

: A » Byte 

: rechts schieben Cincl. CY) 

: Byte zurück 

: Ze i ger - 1 

: Zähler - 1 

.•Nächstes Byte 

:Noch mehr verschieben ? 
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Mantisse von X um 1 Bit nach rechts schieben 




0D90 212341 
0D93 1601 
0D95 18ED 


LO 

LO 

3R 


HL.4123H ; HL ■ Zeiger auf Mantisse 

0.01H ; 0 = Zähler für 1 Bit 

0D84H : Weiter bei 0D84H 


: (HL) bis CHL+7) um 1 Bit nach links schieben 


0D97 0E08 
0D99 7E 
0D99 17 
0D9B 77 
0D9C 23 
0D9D 00 
0D9E 20F9 
0090 C9 


LO C.08H 

LD 9. (HL) 

RL9 

LO (HL).R 

INC HL 

OEC C 

3R NZ.0099H 

RET 


: OMUL : X - X * V (OBL) 

: I: X * 1. Faktor CDBL) 
: Y = 2. Faktor (OBL) 
; 0: X * Produkt 


0DR1 CD5509 
0094 C8 
0D95 CD0909 
0098 CD390E 


C9LL 0955H 

RET Z 

C9LL 0909H 

C9LL 0E39H 


0D9B 71 
009C 13 
0090 0607 
009F 19 
00B0 13 
0DB1 B7 
0DB2 05 
0DB3 2817 


LO 

INC 

LO 

LD 

INC 

OR 

PUSH 

3R 


B.07H 
9 . ( OE ) 


0DB5 

0DB7 

0DB8 

0DB9 

0DB9 


LD C.08H 

PUSH BC 

RR9 

LD B . 9 

C9LL C.0D33H 


ODBD CD900D 


C9LL 0D90H 


ODCO 78 
00C1 CI 
0DC2 OD 
0DC3 20F2 
0DC5 Dl 
0DC6 05 
0DC7 20E6 
0DC3 C3080C 


LD 9 . B 

POP BC 

OEC C 

3R NZ.0DB7H 

POP DE 

OEC B 

3R NZ.0D9FH 

3P 0CD8H 


: 8 Bytes Mantisse (mit Unterlauf) 
: 9 * Byte 

: rechts schieben (incl. CY) 

;Byte zurückschreiben 
.•Zeiger +l 
:Zähler -1 

:Nächstes Byte verschieben 


: TEST2 

;Ergebnis » 0. wenn X = 0 
Exponenten und Sign verrechnen 
:Mantisse des l. Faktors nach 
; 4 l 49H retten und Mantisse von X 
: löschen 

:Unterlauf von X auf 0 
:0E : LS8 des 1. Faktors 
:7 Bytes Mantisse verrechnen 
; 9 = Byte der Mantisse 
: Zeiger +l 

: Ist kein Bit gesetzt ? 

:Zeiger retten 

:3a: X um 1 Byte nach rechts 
;schieben und nächstes Byte des 
; 1 . Faktors ho l en 
:8 Bits pro Byte 
sZähler retten 

.•nächstes Bit testen. Bit » 1 ? 
:Byte retten 

:3a: Mantissen von X und Y 
: addieren 

:Mantisse von X um 1 Bit nach 

:rechts schieben (nächste Stelle) 

.-Byte zurück 

;Zähler zurück 

:Bitzähler -1 

: Nächst es Bit testen 

:Zeiger zurück 

: Bytezähler -1 

:Nächstes Byte testen 

: Sprung nach DFL09T 
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Mantisse von X um 1 Byte nach rechts schieben 


OOCC 212341 
ODCF CD700D 
0DD2 18F1 


LD HL.4123H ; HL - Zeiger auf Mantisse von X 

CALL 0D70H :Ein Byte rechts schieben 

DR 0DC5H : Zurück nach DMUL 


Konstante 10 CDBL.SNG) 


0DD4 00 
0D05 00 
0DD6 00 

0007 00 

0008 00 
0009 00 
ODDA 20 
ODDB 84 


:Konstante 10 CDBL) 


konstante 10 CSNG) 


X 


X / 10 CDBL) 


ODOC UD400 
ODDF 212741 
0DE2 C0D309 


LD DE.00D4H : DE : Konstante 10 CDBL) 

LD HL.4127H : HL » Zeiger auf Y 

CALL 09D3H [Kopiere CDE) nach CHL) (Y » 10) 


DDIV: X « X ✓ Y CDBL) 
I s X * Dividend CDBL) 
Y » Divisor CDBL) 
0; X = Quotient 


0DE5 3A2E41 
0DE8 B7 
0DE9 CA9A19 
ODEC CD0709 
ODEF 34 
OOFO 34 
ODF 1 CD390E 

0DF4 215141 

0DF7 71 
00F8 41 
0DF9 114A41 
ODFC 212741 
ODFF CD4B0D 
0E02 1A 
0E03 99 
0E04 3F 
0E05 380B 


LD A.C412EH) 

OR A 

DP Z.199AH 

CALL 0907H 

INC CHL) 

INC CHL) 

CALL 0E39H 

LD HL.4151H 

LD C HL ) i C 

LD B.C 

LD 0E.414AH 

LD HL.4127H 

CALL 0D4BH 

LD A.CDE) 

SBC A.C 

CCF 

DR C.0E12H 


: A = Exp CY) 

:Y = 0 ? 

:Da: /O-Error 

[Exponenten und Sign verrechnen 
[Exponent berichtigen 
[Csiehe auch SOIV) 

[Dividend retten und Mantisse von 
[X auf 0 setzen 

[HL = Zeiger auf Unter l au fbyte 

[des Dividenden 

[Unterlaufbyte löschen 

i Unter l auf f l ag auf 0 setzen 

[DE [ LSB des Dividenden 

[HL [ LSB des Divisors 

[Mantissen subtrahieren 

[A = Unter l auf byte 

[A * Unterlaufbyte - CY CC ist 0) 

[CY invertieren 

[Sprung wenn kein Unterlauf war 
[sonst Subtraktion rückgängig 
.• machen 
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0E07 114A41 
OEOA 212741 
OEOD CD390D 
OE 10 AF 
OE 11 DA1204 
#0E12 12 

*0E 1 3 04 

OE 14 3A2341 
OE 17 3C 
OE 18 30 
OE 19 1F 
OE 1 A FAUOD 
OE 10 17 
OE IE 211D41 
0E21 0E07 
0E23 CD990D 

0E26 214A41 
0E29 CD970D 

0E2C 79 
OE 20 B7 
0E2E 20C9 
0E30 212441 
0E33 35 
0E34 20C3 

0E36 C3B207 


LO DE.414AH 

LD HL.4127H 

CALL 0D39H 

XOR A 

OP C.0412H 

LO C OE ) . A 

INC B 

LD A.C4123H) 

INC A 

DEC A 

RRA 

OP M.ODUH 

RLA 

LO HL.4UDH 

LD C . 07H 

CALL 0099H 

LD HL.414AH 

CALL 0097H 

LD A.B 

OR A 

OR NZ.0DF9H 

LO HL.4124H 

DEC CHL) 

OR NZ.0DF9H 

OP 07B2H 


: DE : LSB des Dividenden 
: HL : LS8 des Divisors 
:Mantissen addieren 

:CY - 0 

.•Mein Unterlauf: Unter l auf byte 
: zurückschreiben 
:Unter l auf f l ag » 1 
: A = MSB (Quotient) 

:nächstes Bit » 1 ? 

:A,7 zur Rundung nach CY schieben 
:Fertig wenn höchstes Bit = 1 
:A.7 wieder zurückschieben 
; HL : LSB CQuotient) 

:7 Bytes Mantisse 

:Quotient um 1 Bit nach links 

: schieben 

: HL : LSB (Dividend) 

:0ividend um 1 Bit nach links 
: schieben 

:Unter lauf f l ag nach A 
: War ein Unterlauf ? 

:Nein: nächstes Bit verrechnen 
:0a: HL : Exp (Quotient) 

;Quotient = Quotient / 2 
: Exp * 0 ? Nein: nächstes Bit 
: ver rechnen 
:0a: OV-Error 


UPRO für DD IV 

Mantisse von X nach 414AH bis 4150H retten und X als Ergebnis auf 0 setzen 


0E39 79 
0E3A 322D41 
0E3D 2B 
OE3E 115041 
CE4 1 010007 

0E44 7E 
0E45 12 
0E46 71 
0E47 1B 
0E48 2B 
0E49 05 
0E4A 20F8 
0E4C C9 


LO A.C 

LD ( 412DH ) . A 

DEC HL 

LD DE.4150H 

LD BC.0700H 

LD A.(HL) 

LD (DE).A 

LD (HL).C 

DEC DE 

DEC HL 

DEC B 

OR NZ.0E44H 

RET 


: A = MSB CY) 

: MSB CY) zurückschreiben 
: HL : MSB CX) 

:DE = Zeiger auf Zwischenspeicher 

:7 Bytes kopieren. Mantisse von X 

: mi t OOH fül len 

:A =» Byte von X 

.•Byte nach (DE) retten 

:und Mantisse löschen 

: Zeiger -1 

: Zähler -1 
;Nächstes Byte 



X * 10 CDBL) 


0E4D 
OE 50 
OES 1 
0E52 
0E53 
0E54 
0E55 
0E57 
0E5A 
0E5B 
0E5C 


C602 

DAB207 


0E5F El 
0E60 34 


0E61 CO 
0E62 C3B207 


CALL 09FCH 

EX DE. HL 

DEC HL 

LD A.CHL) 

OR A 

RET Z 

ADD A.02H 

OP C.07B2H 

LD CHLJ.A 

PUSH HL 

CALL 0C77H 

POP HL 

INC ( HL )_ 

RET NZ 

OP 07B2H 


;Y * X 

:HL+1 : Exp CX) 

: HL : Exp (XI 
: A - Exp CX) 

:X « 0 ? 

:0a: Ergebnis * 0 
: A = Exp CXJ + 2 
: OV-Er ror bei Überlauf 
: Exp zurück: X - X » 4 
.■Zeiger retten 
;X = X + Y 

: C X * 4 + X erg-ibt X * 5) 

: Zeiger zurück 

: Exp +1 entspricht X ■ X * 2 
:CX * 5 * 2 ergibt X * 10) 
:Fertig wenn kein Überlauf 
:sonst OV-Error 


Umwandlung eines Strings in eine Zahl CDBL) 
(wie VAL-Funkt ion) 

I : HL = Zeiger auf String 
0: X « Zahl CDBL) 


0E65 CD7807 
0E68 COECOA 
0E6B F6AF 


CALL 0778H 
CALL OAECH 
OR OAFH 


:X - 0 

:VT auf DBL setzen 

: Fl ag <> 0 


Umwandlung eines Strings in eine Zahl passenden Typs C INT.SNG.DBL) 
(wie VAL-Funkt ion) 

I : HL ■ Zeiger auf String 
0 : X » Zahl 


*0E6C AF 


0E6D EB 
0E6E 01FF00 


0E7 1 60 
0E72 68 
0E73 CC9A0A 


XOR A 


EX DE. HL 

LD BC.OOFFH 


LD H.B 

LD L.B 

CALL Z.0A9AH 


: F l ag = 0 

:Es wird erst probiert einen INT- 
: Wer t zu erzeugen. Bei Überlauf 
:erfolgt eine automatische Um- 
wandlung ins SNG- bzw. DBL- 
: Format 

:DE * Zeiger auf String 

:B = OOH CAnzahl der Nachkomma- 

; stel len) 

:C = FFH CHommaflag. siehe 0EE4H 
; und 0F29H fr) 

: HL = OOOOH 

:CHL ist Anfangswert) 

: X CINT) auf 0 setzen 
wenn Flag * 0 
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OOOOH 


0E76 EB 
0E77 7E 
0E78 FE2D 
OE7A F5 
0E7B CA830E 
OE7E FE2B 
0E80 2801 
0E82 2B 
OE 83 07 

0E84 DA290F 
0E87 FE2E 
0E89 CAE40E 
0E8C FE45 
0E8E 28X4 
0E90 FE25 
OE 92 CAEEOE 
0E95 FE23 
0E97 CAF50E 
0E9A FE2 1 
0E9C CAF60E 
0E9F FE44 
0EA1 2024 


0EA3 B7 


EX DE. HL 

LO A.(HL) 

CP 20H 

PUSH AF 

OP 2.0E83H 

CP 2BH 

DR 2.0E83H 

OEC HL 

RST 10H 

OP C.0F29H 

CP 2EH 

OP Z.0EE4H 

CP 45H 

OR Z.0EA4H 

CP 25H - 

OP Z.OEEEH 

CP 23H 

OP Z.0EF5H 

CP 2 1 H 

OP Z.0EF6H 

CP 44H 

OR NZ.0EC7H 


OR A 


; HL * Zeiger, DE ■ 
sA ■ 1. Zeichen 
: Negat i ves Vorzeichen *> COa: Z»l) 
:Vorzeichen retten 
: Sprung wenn Sign angegeben 
.•Positives Vorzeichen 
:0a: Sprung 

: Ne i n : Zeiger -1 für RST 10H 
: A - Nächstes Zeichen 
:Ziffer gefunden 7 
:0a: weiter bei 0F29H 
: ' . ' 7 

:0a: weiter bei 0EE4H 
: 'E’ 7 

:0a: weiter bei 0EA4H mit Z = 1 
:'X' C INT-Kennung) 7 
:0a: weiter bei OEEEH 
CDBL-Kennung) 7 
:0a: weiter bei OEF5H 
:'!' (SNG-Kennung) *> 

:0a: weiter bei 0EF6H 
: ' 0 ' ? 

:Nein: Weder Ziffer noch 

: Sonderzeichen erkannt 

:-> Ende des Zahlenstrings 

:erreicht 

:0a: Z * 0 setzen 


(Z=l) und ’D' 


Z=0) 


OE A4 CDFBOE 


0EA7 E5 
0EA8 21BD0E 
OEAB E3 
OEAC 07 


OEAD 15 
OEAE FECE 
OEBO C8 
OEB 1 FE20 
0EB3 C8 
0EB4 14 
0EB5 FECD 
0EB7 C8 
0E98 FE2B 
OEBA C8 
OEBB 2B 


CALL OEFBH 

PUSH HL 

LD HL.OEBDH 

EX (SP). HL 

RST 10H 


DEC D 

CP OCEH 

RET Z 

CP 2DH 

RET Z 

INC 0 

CP OCDH 

RET Z 

CP 2BH 

RET Z 

DEC HL 


POP AF 


X ins SN6- CZ-1) oder DBL- CZ»0) 
Format umwandeln 
Zeiger retten 

RET-Adresse auf OEBDH stellen 
und Zeiger zurück nach HL 
A a nächstes Zeichen nach 'E' 
bzw ' D ' 

D * FFH 

*-* C Bas ic-Token) 7 
Oa: weiter bei OEBDH 

Oa: weiter bei OEBDH 
D = 00H 

’+* (Bas ic-Token) 7 
Oa: weiter bei OEBDH 
* + • *> 

Oa: weiter bei OEBDH 

Zeiger -1 C Da bei RST 10H der 

Zeiger erhöht wurde) 

RET-Adr. (OEBDH) vom Stack 
ent f ernen 


97 



OEBO DT 

RST 

10H 

:A = Exponentenzeichen 
:Ziffer gefunden ? 

OEBE DA940F 

3P 

C .0F94H 

:3a: weiter bei 0F94H 
:Nein: Exponent zuende 

OEC 1 14 

INC 

D 

;Exponent negativ ? Cwar D*FFH 7) 

0EC2 2003 

3R 

NZ.0EC7H 

:Nein: weiter bei 0EC7H 

0EC4 AF 

XOR 

A 

:3a: Exponenten negieren 

0EC5 93 

SUB 

E 

: A * OOH - E 

0EC6 5F 

LD 

E.A 

:E * richtiger Exponent 

Zahl in X ist fertig: 

Exponent 

bzw. Kommastelle und Vorzeichen verarbeiten 

0EC7 E5 

PUSH 

HL 

: Zeiger retten 

0EC8 7B 

LD 

A.E 

jA = Exponent 

0EC9 90 

SUB 

B 

: A = Differenz zwischen Exponent 
:und Anzahl der Nachkommastellen 
: Ist die Anzahl der Nachkomma- 
:stellen gö0er als der Exponent "> 

OECA F40A0F 

CALL 

P.OFOAH 

:3a: X mit 10 multiplizieren 
:und Differenz -1 

OECD FC180F 

CALL 

f1,0F18H 

.•Nein: X durch 10 dividieren 
:und Differenz +1 

OEDO 20F8 

3R 

NZ.OECAH 

: Wei ter rechnen bis die Differenz 
: gl eich 0 ist 

0ED2 El 

POP 

HL 

:Zeiger zurück 

0ED3 Fl 

POP 

AF 

;Vorzeichen zurück 

0ED4 E5 

PUSH 

HL 

:Zeiger retten 

0ED5 CC7B09 

CALL 

Z.097BH 

: X = -X. wenn das Vorzeichen 
; war 

0ED8 El 

PCP 

HL 

;Zeiger zurück 

0ED9 E7 

RST 

20H 

: TSTTYP 

OEDA E8 

RET 

PE 

: Fertig wenn X im DBL-Format 

OEDB E5 

PUSH 

HL 

:Zeiger retten 

OEDC 219008 

LD 

HL .0890H 

: RET-Adr auf POP HL C für Zeiger 

OEDF E5 

PUSH 

HL 

:zurück3 setzen 

OEEO CDA30A 

CALL 

0AA3H 

: Ist X = -327S3 *> 

;3a: X ins INT-Format umwandeln 

0EE3 C9 

RET 


;RET und Zeiger zurück 

' . ' gefunden 

0EE4 E7 

RST 

20H 

: TSTTYP 

0EE5 OC 

INC 

C 

•C = OOH, wenn zum erstenmal ein 
:Homma gefunden wurde, sonst ist 
;C > 0 

0EE6 20DF 

3R 

NZ.0EC7H 

:Zahl fertig, wenn C > 0 

0EE8 DCFBOE 

CALL 

C , OEFBH 

:Ist X noch im INT-Format ** 
:Wenn ja. dann X in SNO-Format 
: umwandel n 

OEEB C3830E 

3P 

0E83H 

:Nächstes Zeichen holen 



( INT-Kennung) gefunden 


OEEE E7 
OEEF F29719 


0EF2 23 
0EF3 1 802 


RST 

OP 


INC 

3R 


20H 

P. 1997H 


0EC7H 


C DBL-Kennung) gefunden 
0EF5 B7 OR R 

* •' ( SNG-Kennung ) gefunden (Z ■ 1) 
0EF6 CDFBOE CRLL OEFBH 

0EF9 1 8F7 3R 0EF2H 


; TSTTYP 

: SN-Er ror . wenn X bereits im SNG- 
:oder OBL-Format ist 
; Ze i ger +1 
:Zahl ist fertig 


; Z 


0 


; Zah l ins SNG- CZ « 1) oder 
; DBL- (Z » 0) Format umwandeln 
: Ze i ger +1. Zahl ist fertig 


Zahlenumwandlung in 
I : Z * 1 : X - CSNG 
Z = 0 : X » CDBL 
0 : - 

0EF9 E5 
OEFC D5 
OE FD C 5 
OEFE F5 
OEFF CCB10R 
0F02 Fl 
0F03 C4DB0R 
0F06 CI 
0F07 Dl 
0F08 El 
0F09 C9 


IG oder DBL 

X ) 

X ) 


PUSH HL 

PUSH DE 

PUSH BC 

PUSH RF 

CRLL Z.0RB1H 
POP RF 

CRLL NZ.ORDBH 

POP BC 

POP DE 

POP HL 

RET 


:Register retten 


CSNG. wenn Z « 1 
Flags zurück 
CDBL. wenn Z * 0 
Register zurück 


X - X * 10 (SNG. DBL) 

Typrichtige Multiplikation von X mit 10 

Wird bei der Verarbeitung des Exponenten bzw der Nachkommastellen verwendet 
I: X = Zahl CSNG- oder DBL-Format) 

0: X = X * 10 

R = R - 1 (für Exponenten- und Kommas t el l enverar bei tung) 


OFOR C8 


OFOB F5 
OFOC E7 
OFOD F5 
OFOE E43E09 
OFU Fl 
0F12 EC 4D0E 
OF 15 F 1 
OF 1 6 3D 
OF 1 7 CS 


RET Z 


PUSH RF 

RST 20H 

PUSH RF 

CRLL p O . 093EH 

POP RF 

CRLL =E.0E4DH 

POP RF 

DEC R 

q E T 


:Fertig wenn Z = 1 (Differenz 
.•zwischen Exponent und 
:Nachkommastel len * 0) 
:Differenz retten 
: TSTTVP 
;Flags retten 
:X « X * 10 CSNG) 

:Flags zurück 
;X x x * 10 CDBL j 
:Differenz zurück 
:Oifferenz -1 
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X « X / 10 CSNG.OBL) 

Typrichtige Division von X durch 10 

Gleiche Parameter wie bei X * X » 10. jedoch wird A um 1 erhöht 


0F18 05 
0F19 E5 
0F1A F5 
0F1B E7 
0F1C F5 
0F1D E49708 
0F20 Fl 
0F21 ECDCOD 
0F24 Fl 
0F25 El 
0F26 Dl 
0F27 3C 
0F28 C9 


PUSH DE 

PUSH HL 

PUSH AF 

RST 20H 

PUSH AF 

CALL P0.0897H 

POP AF 

CALL PE.ODDCH 

POP AF 

POP HL 

POP DE 

INC A 

RET 


:Register retten 


: TSTTYP 
: Fl ags retten 
:X « x / 10 CSNG) 
:Flags zurück 
;X « X / 10 CDBL) 
;Register zurück 


sDifferenz +1 


Ziffer verarbeiten CCY * 1 wegen RST 10H vorher) 


0F29 D5 
0F2A 78 
0F2B 89 


0F2C 

0F2D 

0F2E 

0F2F 

0F30 

0F32 

0F33 

0F34 


47 


C5 

E5 

7E 

D630 

F5 


E T 

F25D0F 


PUSH DE 

LD A.B 

ADC A.C 


LD 

PUSH 

PUSH 

LD 

SUB 

PUSH 

RST 

DP 


A. (HL) 
30H 


20H 

P.0F5DH 


Exponentenflags retten 
A * Anzahl der Nachkommastellen 
C ■ FFH . wenn noch keine 
Nachkommastellen erkannt wurden: 
FFH + 1 CCY) ergibt 0. also wird 
zu A nichts hinzuaddiert. 

Im anderen Fall ist C * OOH 
+ 1 CCY) ergibt 1 -> die Anzahl 
der Nachkommastellen wird um 1 
erhöht 

B = Nachkommastellen 
BC retten 
Zeiger retten 
A « Ziffer CASCII-Wert) 

A « ZifTer CZahlenwert 0 bis 9) 
Ziffernwert retten 
TSTTYP. Ist X noch INT-Format ? 
Nein: Weiter bei 0F5DH 


Neue Ziffer in INT-Zahl einarbeiten 


0F37 2A2141 LD 

0F3A 1 1CD0C LD 

0F3D DF RST 

0F3E 3019 3R 

;der Zahlenwert aus dem 
:INT-Bereich herauskommen -> die 
.•Zahl muß ins SNG-Format 
; umgewandelt werden 


HL.C4121H) : HL - INT-Zahl 

DE.OCCDH : DE - 3277 Cca. 32767/10) 

18H : Ist die Zahl schon jetzt größer 

;als 3277 ? 

NC.0F59H :3a: Durch die neue Stelle würde 
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Adresse der Variablen in (PTZ) ermitteln und Variable erzeugen, 
falls sie noch nicht existiert 
I: PTZ zeigt auf einen Variablennamen 
0: DE * Adresse der gesuchten Variablen 

C * 0000H wenn die Variable nicht existiert) 


*260D AF 
260E 32AE40 

2611 46 

2612 CD3D1E 


XOR A 

LD C 40AEH ) , A 

LD B.CHL) 

CALL 1E3DH 


2615 DA9719 

2618 AF 

2619 4F 


CP C.1997H 

XOR A 

LD C.A 


26 1 A D7 
26 1B 3805 


RST 10H. 

CR C.2622H 


26 1 D CD3D1E CALL 1E3DH 

2620 3809 CR C . 262BH 


2622 4F 

2623 D7 

2624 38FD 
2626 CD3D1E 
2629 30F8 
262B 115226 
262E D5 
262F 1602 
2631 FE25 

2633 C8 

2634 14 

2635 FE24 

2637 C3 

2638 14 

2639 FE21 
263B CS 
263C 1608 
263E FE23 

2640 C8 


LD C.A 

RST 10H 

CR C.2623H 

CALL 1E3DH 

CR NC.2623H 

LD DE.2652H 

PUSH DE 

LD D.02H 

CP 25H 

RET 2 

INC D 

CP 24H 

RET 2 

INC D 

CP 21H 

RET 2 

LD D.08H 

CP 23H 

RET Z 


Kein Typcode angegeben 

Typcode aus der DEF-Tabelle holen 


2641 78 

2642 D64 1 
2644 E67F 

2646 5F 

2647 1600 
2649 E5 
264A 210141 
264D 19 
264E 56 
264F El 

2651 C9 


LD A.B 

SUB 4 1 H 

AND 7 FH 

LD E.A 

LD D.OOH 

PUSH HL 

LD HL.4101H 

ADD HL. DE 

LD D.(HL) 

POP HL 

DEC HL 

RET 


:A = 0 für Adressen-Suche 

: Fl ag abspeichern 

:B ■ 1. Buchstabe des Namens 

:Ist das Zeichen in (HL) ein 

Großbuchstabe 7 

: Nein : SN-Error 

:A - 00 

:C » Default 2. Zeichen des 
: Namens 

:2. Zeichen angegeben 7 
.•Sprung wenn das 2. Zeichen eine 
; Zi f f er ist 

Großbuchstabe angegeben 7 
;Nein: Variablennamen bei einem 
:Zeichen belassen 
:C * 2. Zeichen 
:Nächstes Zeichen holen 
:Ziffer 7 j a: Zeichen übergehen 
Großbuchstabe ? 

:Ca: Zeichen übergehen 
: RET- Adr auf 2652H setzen 

:0 « 2 C Typcode für Integer) 

C INT-Kennung) gefunden 7 
; Ca : D ist Typcode 
:D + 1 (0=3) 

(STR-Kennung) gefunden ? 

: Ca : D ist Typcode 
;D + 1 (0 ■ 4) 

( SNG-Kennung) gefunden 7 
; Ca : D ist Typcode 
:D = 8 (Typcode für Double) 

(DBL-Kennung) gefunden 7 
:Ca: D ist Typcode 


A « 1 . Buchstabe 
: A » Offset für Typcodetabelle 
Höchstes Bit ausbleden 
: DE * Offset 

: PTZ retten 

HL = Zeiger auf Tabelle 
:0ffset addieren 
D * Typcode (Siehe DEFXXX) 

: P^Z zurück 
PTZ -1 

: RET nach 2652H 



AND / OB verarbeiten 


25E9 C5 
25EA CD7F0A 
25ED Fi 
25EE Dl 
25EF 01FA27 
25F2 C5 
25F3 FE 46 
25F5 2006 

OR 

25F7 7B 
25F8 B5 
25F9 6F 
25FA 7C 
25FB B2 
25FC C9 

AND 

25FD 7B 
25FE A5 
25FF 6F 

2600 7C 

2601 A2 

2602 C9 


Return nach DIM 


PUSH BC 

CALL 0A7FH 

POP AF 

POP DE 

LD BC.27FAH 

PUSH BC 

CP 46H 

OR NZ.25FDH 


: Pr ior i tätacode retten 

; HL - X - CINTCX) - 2. Argument 

: Prioritätscode zurück 

:DE * 1. Argument 

: RET-Adr auf 27FAH setzen 

: ( X - HL CINT) ) 

: Pr ior i tätscode - 46H COR) ? 
:Nein: AND bei 25FDH ausführen 


LD A.E 

OR L 

LD L.A 

LD A.H 

OR D 

RET 


:Beide Argumente mit OR 
: verknüpfen 


: Rücksprung nach 27FAH 


LD A.E 

AND L 

LD L.A 

LD A.H 

AND D 

RET 


:Beide Argumente mit AND 
; verknüpfen 


; Rücksprung nach 27FAH 


2603 2B 

2604 D7 

2605 C8 

2606 CF 

2607 2C 

DIM 


DEC HL 

RST 10H 

RET Z 

RST 08H 

DEFB 


: PTZ -1 

;Befehlsende erreicht ? 

:3a: Fertig 

:Nein: nächste Variable muß durch 
;Komma abgetrennt sein 


2608 010326 
260B C5 
260C F6AF 


LD BC.2603H : RET-Adr auf 2603H setzen 

PUSH BC 

OR OAFH ; A <> 0 für DIM 
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0F40 54 
0F41 5D 
0F42 29 
0F43 29 
0F44 19 
0F45 29 
0F46 Fl 
0F47 4F 


0F48 09 
0F49 7C 
0F4A B7 
0F4B FA570F 

0F4E 222141 
0F51 El 
0F52 CI 
0F53 Dl 

^ 0F54 C3830E 


LD 

LD 

ADD 

ADD 

ADD 

ADD 

POP 

LD 


ADD 

LD 

OR 

3P 

LD 

POP 

POP 

POP 

3P 


E.L 
HL. HL 
HL. HL 
HL .OE 
HL. HL 
AF 
C.A 


HL.BC 

A.H 

A 

M.0F57H 

C412-1H) .HL 

HL 

BC 

DE 

0E83H 


sHL * HL * 2 * Zahl * 2 

; HL ■ HL * 2 - Zahl * 4 

: HL « HL + DE «= Zahl # 5 

: HL » HL * 2 - Zahl * 10 

: Zi f f er zurück 
:BC = Ziffernwert 
;CB = Nachkommastellen « 0. da 
: INT-Format ) 

: HL - Zahl + Neue Ziffer 
; Ist die neue Zahl > 32767 •* 

:3a: Zahl ins SNG-Format 
; umwandeln 
:X ■ Neue Zahl 
:Zeiger zurück 
:Kommastelle zurück 
: Exponentenf l ag zurück 
.•Nächste Ziffer holen 


: Überlauf bei INT 


0F57 79 
0F58 F5 
0F59 CDCCOA 
0F5C 37 


LD A.C 

PUSH AF 

CALL OACCH 

SCF 


:A ■ Ziffernwert 
:Zi f fer retten 
: X « CSNG CX) 

: CY ■ 1 für SNG-Verarbei tung 


: Neue Ziffer in SNG- CCV 


1) oder DBL-Zahl (CV = 0) einarbeiten 


0F5D 301*8 
0F5F 017494 
0F62 110024 
0F65 CDOCOA 

0F68 F2740F 


0F6B CD3E09 
0F6E Fl 
0F6F CD890F 
0F72 18DD 

: Überlauf bei SNG 

OFT 4 CDE30A 


3R NC.0F77H 
LD BC.9474H 
LD 0E.2400H 
CALL OAOCH 

3P P.0F74H 


CALL 093EH 

POP AF 

CALL 0F89H 

3R 0F51H 


: Sprung wenn DBL 
: BCDE « 1E+6 

;X und BCDE vergleichen 
:Ist X schon jetzt >■ 1E+6 ? 
:3a: X in DBL umwandeln, da mit 
: der neuen Ziffer X mehr als 
: 6 Stellen hätte und damit aus 
;dem SNG-Bereich kommen würde 
:X = X * 10 
:A « Ziffernwert 
; X ■ X ♦ A CSNG) 

;Nächste Ziffer holen 


CALL 0AE3H :X ■ CDBL CX) 
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Neue Ziffer in DBL-Zahl einarbeiten 


0F77 C04D0E 
0F7A CDFC09 
0F7D Fl 
0F7E CD6409 
0F8 1 CDE30A 
0F84 CD770C 
0F87 1 8C8 


CALL 0E4DH 

CALL 09FCH 

POP AF 

CALL 0964H 

CALL 0AE3H 

CALL OC77H 

OR 0F51H 


SX - X * 10 CDBL) 

:V - X 

:A * Ziffernwert 
;X - A 

:X - CDBL CX) 

:X * X + Y 

:Nächste Ziffer holen 


X 


X + A CSNG) 


0F89 CDA409 
0F8C CD6409 


CALL 09A4H :CSP) « X 

CALL 0964H ;X - A 


X - X + (SPD CSNG) 


0F8F CI 
0F90 Dl 
0F9 1 C31607 


POP BC : BCDE - (SP) 

POP DE 

OP 0716H :X ■ X + BCDE 


Ziffer nach ’E' bzw 'D' gefunden 

0F94 7B LD A.E 

0F95 FEOA CP OAH 


0F97 3009 


3R NC.0FA2H 


0F99 07 
0F9A 07 
0F9B 83 
0F9C 07 
0F9D 86 
0F9E D630 


RLCA 

RLCA 

ADD 

RLCA 

ADD 

SUB 


A.E 

A. CHL) 
30H 


OFAO 5F 
0FA1 FA1E32 
#0FA2 1E32 

0FA4 C3BD0E 


LD E.A 

OP M.321EH 

LD E.32H 

OP OEBDH 


:A ■ bisheriger Exponent 
••Ist der Exponent >■ 10 7 
:Sind schon zwei Exponenten- 
;stellen erkannt worden 
:CEine Stelle kann nur 9 ergeben! 
:0a: Exponenten auf 48 stellen. 
:und so einen Überlauf erzwingen 
:A * A » 2 « Exponent * 2 

;A ■ A » 2 ■ Exponent * 4 

:A - A + E * Exponent * 5 

; A « A * 2 * Exponent * 10 

:Neue Exponentenziffer verrechen 
: 30H abziehen. da der ASCII-Wert 
.•verrechnet wurde (Garantiert 
:positives Ergebnis, da CHL) im 
: Bereich von 30H bis 39H liegt) 

:E * Neuer Exponent 

(positives Ergebnis ') 
:Exponent ■ 48 bei Überlauf 
:Nächste Exponentenziffer holen 


Print 'in’ und Zahl in HL (Routine für Error und Break) 


0FA7 E5 
0FA8 212419 
OFAB CDA728 
OFAE El 


PUSH HL 

LD HL.1924H 

CALL 28A7H 
POP HL 


:Zahl retten 
: ( HL ) - Text 'in 
:Text ausgeben 
:Zahl zurück 
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Print HL (Routine für Zeilennummernausgabe bei LIST) 


OFRF CD9R0R 
0FB2 RF 
0FB3 CD3410 

0FB6 B6 
0FB7 CDD90F 
OFBR C3R628 


CRLL 0R9RH 

XOR R 

CRLL 1034H 

OR (HL) 

CRLL 0FD9H 

DP 28R6H 


: Zah l als INT nach X 
:R ■ OOH -> keine Formatierung 
: Format ierungsbyte abspeichern 
:und Vorzeichen löschen 
: R « 20H ( R . 7 ■ 0) 

: Unformatierten String erzeugen 
:und ausgeben 


Umwandlung von X in einen unf ormat ier ten String (für PRINT) 
(wie STRS) 

I: X - Zahl 

0: HL « Zeiger auf String (» 4130H) 


OFBD RF 


XOR 


R 


:Formatbyte löschen 




Umwandlung von X in einen 
(wie STRS) 

I: X * Zahl 

R = Format iercode : Bit 
Bit 
Bit 
Bit 
Bit 
Bit 
Bit 
Bit 


formatierten String (für PRINT USING) 


7=1: Formatierung ausführen 

6 = 1: zur Tausenders t e l l ent rennung ausgegeben 

5=1: Führende Leerstellen mit auffüllen 

4 = l: 'S' vor der Zahl ausgegeben 

3=1: Vorzeichen (auch ’+') mitausgeben 
2=1: Vorzeichen hinter der Zahl ausgeben 
1 = -: unbenutzt 

0=1: Zehnerexponenten mitausgeben 


B = Rnzahl der Vorkommas t e l l en 

C = Rnzahl der Nachkommastellen + 1 (für Dezimal punkt ) 


0: HL = Zeiger auf St r i ngan r ang (= 4130H) 
DE = Zeiger auf Stringende 


OFBE CD3410 


0FC1 E608 
0FC3 2802 
^ 0FC5 362B 
0FC7 EB 
0FC8 CD9409 
OFCB EB 
OFCC F2D90F 

OFCF 362D 

0FD1 C 5 
0FD2 E5 


CRLL 1034H 


RND 08H 

DR Z.0FC7H 

LD ( HL ) . 2BH 

EX DE. HL 

CRLL 0994H 

EX DE. HL 

DP P.0FD9H 

LD ( HL ) . 2DH 

PUSH BC 

PUSH HL 


:Formatbyte abspeichern 

: Vorzeichens tel le im Buffer 

: löschen und HL = 4130H (Buffer- 

Anfang) setzen 

.•Ist das Vorzeichen gefordert 

:Nein: weiter bei 0FC7H 

:0a: erstmal einsetzen 

: HL nach DE retten 

: TEST1 

: HL zurück 

:Vorzeichen belassen, wenn 
:X positiv ist 
: sonst '-' a l s Vorzeichen 
: einsetzen 
: BC retten 
: HL retten 
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0FD3 CD7B09 


0FD6 El 
0FD7 CI 
0F08 B4 


0FD9 23 
OFDA 3630 
OFDC 3A0840 
OFDF 57 
OFEO 17 
OFE 1 3AAF40 
0FE4 DA9A10 

0FE7 CA9210 

OFEA FE04 
OFEC D23D10 


CALL 097BH 


POP HL 

POP BC 

OR H 


INC HL 

LD CHD.30H 

LD ft . ( 40D8H 5 

LD D.ft 

RLft 

LD A . ( 40ftFH ) 

DP C.109AH 

DP Z.1092H 

CP 04H 

DP NC.103DH 


; X - -X 

:CX wird als positiver Wert ver- 
arbeitet. da das Vorzeichen 
;schon im Buffer steht) 

; HL zurück 
;BC zurück 
: Z = 0 

:X ist jetzt positiv 

:Z * 1 wenn X gleich 0 ist 

;Zeiger +1 

:'0* in Buffer setzen 
:ft = Formatbyte 
jFormatbyte nach D retten 
: CY - Bit 7 
: ft « VT 

; Sprung wenn Formatierung 
: gefordert 

; Fertig wenn Zahl * 0 
;CZ-1 von 0FC8H ) 

; Ist X im INT-Format CVT < 4) ? 
:Nein: weiter bei 103DH 


INT-Zahl in String umwandeln lohne Formatierung) 

OFEF 010000 LD BC . 0000H :B « 0: Heinen Dezimalpunkt er- 

; zeugen 

;C = 0: Keine Tausender t rennung 

0FF2 CD2F13 CALL 132FH :Zahl in unformatierten String 

jmit 5 Ziffern umwandeln 
;Cincl. führende Nullen) 

Führende Nullen löschen bzw durch ersetzen 


0FF5 213041 
0FF8 46 
OFFS 0E20 
OFFB 3AD840 
OFFE 5F 
OFFF E620 
1001 2807 

1003 78 

1004 B9 

1005 0E2A 
1007 2001 
1009 41 

100A 71 


LD HL.4130H 

LD B.CHL) 

LO C.20H 

LD A.C40D8H) 

LD E.ft 

AND 20H 

DR Z.100AH 

LD A.B 

CP C 

LD C.2AH 

DR NZ.100AH 

LD B.C 

LD CHL).C 


: HL - Bufferzeiger 

:B = Vorzeichen (' ’ oder '-') 

: C « ’ ' 

:A * Formatbyte 

:E - r ormatbyte 

.•Leerzeichen mit füllen ? 

:Nein: weiter bei 100AH 

:Da: A * Vorzeichen 

:Ist das Vorzeichen * ' * ? 

:C * 

;Nein: vorhanden 

;Da: Vorzeichen (* ') durch 

: ersetzen 

‘ oder in den Buffer 

sschreiben 
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1 006 D7 
100C 2814 
100E FE45 
1010 2810 

1012 FE44 
1014 280C 
1016 FE30 
1018 28F0 
101R FE2C 
101C 28EC 
1 0 1 E FE2E 
1020 2003 

1022 2B 

1023 3630 

1025 7B 

1026 E610 
1028 2803 
102R 2B 
102B 3624 
1 020 7B 
102E E604 

1030 CO 

1031 2B 

1032 70 

1033 C9 


RST 10H 

DR Z.1022H 

CP 45H 

DR Z.1022H 

CP 44H 

DR Z.1022H 

CP 30H 

DR Z.100RH 

CP 2CH 

DR Z.100RH 

CP 2EH 

DR NZ.1025H 

DEC HL 

LD CHL3.30H 

LD R.E - 

RND 10H 

DR Z.102DH 

□EC HL 

LD CHL3.24H 

LD R.E 

RND 04H 

RET NZ 

DEC HL 

LD C HL 3 . B 

RET 


:R * nächstes Zeichen 
:Sprung wenn String zuende 
: ' E ' gefunden ? 

; Da : Ende gefunden C'E' gehört 
:nicht zum INT-Format) 

: ' D ’ gef unden ? 

:Da: Ende gefunden 
: Führende 0 gefunden ? 

: Da : Durch ’ ' oder ersetzen 

: ' . ' gefunden ? 

:Da: Durch ' ' oder ersetzen 

: ’ . ' gefunden 7 

: Nein : weiter bei 1025H 

: Da : Dezimalpunkt 

rdurch '0' ersetzen 

:R « Formatbyte 

: ' S ' vor Zahl ? 

:Nein: weiter bei 102DH 
:Da: 'S’ einsetzen 

:R * Formatbyte 
.•Vorzeichen hinter der Zahl 

rausgeben ? 

: Da : String ist Tertig 

:Nein: Vorzeichen wieder vor der 

:Zahl einsetzen 


Formatbyte retten. HL auf Bufferanfang setzen und Vorzeichen löschen 


1034 32D840 
1037 213041 
1 03R 3620 
103C C9 


LD C40D8H3.R rFormatbyte retten 

LD HL.4130H ; HL : BufTeranfang 

LD CHL3.20H rVorzeichen im Buffer löschen 

RET 


X ist im Fl ießkommaformat CR « VT 3 
String ohne Formatierung erzeugen 


103D FE05 
103F E5 
1040 DEOO 
1042 17 


CP 05H 

PUSH HL 

SBC R.OOH 

RLR 


1043 57 

1044 14 

1045 CD0112 


LD D.R 

INC D 

CRLL 1201H 


;CY « l wenn SNG. sonst CY ■ 0 
rZeiger retten 

;R * 3 wenn SNG. R * 8 wenn DBL 
:* 2 ergibt die Rnzahl der 
rmaximal zu erzeugenden Dezimal- 
stellen - 1 
:D - R 

;D ■ maximale Stellenzahl 
:C7 für SNG und 17 für DBL 3 
:X auf 6 bzw. 16 Stellen ska- 
; l ieren 

:R * Exponentenoffset C» Rnzahl 
:der Kommaverschiebungen nach 
: links während der Skalierung! 



1048 010003 

LD 

BC , 0300H 

B * 3 ( »Oez i ma l punktpos i t ion+1 ) 
C * 0 (Keine Tausendertrennung) 

104B 82 

8DD 

8 , D 

8 » Exponentenoffset + maximale 
Stellenzahl = 10-Exponent + 2 

1 04C F85710 

3P 

n. 1057H 

weiter bei 1057H wenn der 10- 
Exponent < -2 ist 

1 04F 14 

INC 

D 

Ist die Stellenzahl ♦ 1 Meiner 

1050 B8 

CP 

D 

als der 10-Exponent + 2 ? 

1051 3004 

3R 

NC. 1057H 

3a: weiter bei 1057H 

1053 3C 

INC 

8 

Nein: 10-Exponent 3 ■ Dezimal 

Punkt pos i t ion + 1 

1054 47 

LD 

B . 8 

B = Dez imal punktpos i t ion + 1 

1055 3E02 

LD 

8.02H 

8 » 2 wegen SUB 02H -> Es wird 
kein 10-Exponent ausgegeben 

1057 D602 

SUB 

02H 

8 » 10-Exponent 

1059 El 

POP 

HL 

Bufferzeiger zurück 

1058 F5 

PUSH 

8F 

10-Exponent retten 

1 05B C09112 

C8LL 

1 291 H 

und setzen. B -1 

105E 3630 

LD 

( HL 1 , 30H 

’0' einsetzen 

1060 CCC909 

C8LL 

Z.09C9H 

Zeiger +1 wenn Dezimalpunkt 
gesetzt wurde 

1063 CD8412 

C8LL 

1284H 

X in unformatierten String mit 
7 bzw. 17 Stellen C inkl . führen 
der Nullen) umwandeln. Dezimal - 
punkt nach B Ziffern einsetzen 

1066 2B 

DEC 

HL 

Bufferzeiger -1 

1067 7E 

LD 

8. CHL) 

; 8 = Zeichen 

1068 FE30 

CP 

30H 

[nachfolgende Nullen ? 

1068 28F8 

3R 

Z. 1066H 

3a: Zeiger ■ Letztes Zeichen 
idas nicht ’0' ist (Nachfolgende 
iNullen werden durch den 10-Expo- 
inenten dargestellt) 

106C FE2E 

CP 

2EH 

Ist das letzte Zeichen der 
iDezimalpunkt ? 

:3a: Zeiger belassen -> Der De- 
:zimalpunkt wird gelöscht 

106E C4C909 

C8LL 

NZ.09C9H 

;Nein: Zeiger +1 

1071 Fl 

POP 

8F 

: 10-Exp zurück 

1072 281 F 

1 O-Exponenten ausgeben 
8 = 10-Exponent 

3R 

Z. 1093H 

:Zahl fertig wenn der 10-Exp 
:gleich 0 ist 

1074 F5 

PUSH 

8F 

10-Exp retten 

1075 E7 

RST 

20H 

TSTTYP (CY - 1 wenn SNG-Format) 

1076 3E22 

LD 

8.22H 

8 * 8SC I I -Wert von ’D' / 2 

1078 8F 

8DC 

8.8 

8 = 8 * 2 + CY 
8 » •£• wenn X im SNG-Format 
sonst 8 « ’D' 

1079 77 

LD 

C HL 5 . 8 

Korrekte 10-Exponentenkennung 
einsetzen 
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IOTA 23 
1 07B Fl 
107C 362B 
1 07E F28510 
1081 3620 
1083 2F 
108« 3C 

1085 062F 

1087 0« 

1088 D60A 
108A 30FB 

108C C63A 

1 08E 23 
1 08F 70 

1090 23 

1091 77 


INC HL 

POP AF 

LD CHD.2BH 

3P P.1085H 

LD CHD.2DH 

CPL 

INC A 

LD B.2FH 

INC B 

SUB OAH 

DP NC.1087H 

ADD A.3AH 

INC HL 

LD CHL).B 

INC HL 

LD (HL).A 


:Zeiger +1 
: 10-Exp zurück 

: Positives Vorzeichen annehmen 
:Vorzeichen ok wenn 10-Exp > 0 
:Sonst einsetzen 

:und den 10-Exp negieren 
: Cal so als positive Zahl 
: behandeln! 

:B - ASCII -Wert von '0* - 1 

:B +1 (nächste Ziffer der Zehner- 

jstel l e ) 

: 10 vom 10-Exp abziehen 
:Ziffer weiter erhöhen solange 
: der 10-Exp noch > 10 ist 
: +3AH ergibt korrekten ASCII-Wert 
:der Einerstel le 
: Zeiger +1 

sZehnerstel le des Exp einsetzen 
.•Zeiger +1 

:Einerstelle einsetzen 


: String durch Einsetzen von 00H abschließen 


1092 23 

1093 3600 

1095 EB 

1096 213041 
1099 C9 


INC HL 

LD (HL).OOH 

EX DE. HL 

LD HL.4130H 

RET 


:Zeiger +1 

:mit OOH abschließen 
: DE » Endzeiger 
: HL ■ Anfangszeiger 


Formatierung gefordert 
A * VT 

BC = Vor- und Nachkommastellenzähler 
D = Formatbyte 
HL = Bufferzeiger 


1 09A 23 
1 09B C5 


INC HL 

PUSH BC 


1 09C FE 04 
109E 7A 
109F D20911 


CP 04H 

LD A.D 

DP NC.U09H 


: INT-Zahl in formatierten String umwandeln 


10A2 1F 
1 0A3 DAA311 


1 0A6 010306 


RRA 

3P C.11A3H 


LD BC.0603H 


: Zeiger +l 

:Vor- und Nachkommastel len- 
:zähler retten 
: Ist X im INT-Format ? 

:A * Formatbyte 
;Nein: weiter bei 1109H 


:Bit 0 des Formatbytes nach CY 
: weiter bei 11A3H wenn der 10- 
:Exponent ausgegeben werden soll 
:CDazu muß X ins SNG-Format umge- 
:wandelt werden) 

:B - maximale Anzahl der Vor- 
: kommastel len + 1 
:C = Zähler für Tausender- 
; t rennung 
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10AC Dl 

10AD 7A 
10AE D605 
10B0 F46912 

10B3 C02F13 

10B6 7B 
1 0B7 B7 
10B8 CC2F09 
10BB 3D 

10BC F46912 

10BF E5 

10C0 CDF50F 

1 OC3 El 
1 0C4 2802 

IOC 6 70 
10C7 23 
IOC 8 3600 
10CA 212F41 
10CD 23 
10CE 3AF340 

10D1 95 


10D2 92 
1 0D3 C8 


CALL 1289H 

POP DE 

LD A.D 

SUB 05H 

CALL P.1269H 

CALL 132FH 

LD A.E 

OR A 

CALL Z.092FH 

DEC A 

CALL P.1269H 

PUSH HL 

CALL 0FF5H 

POP HL 

3R Z.10C8H 

LD C HL 1 . B 

INC HL 

LD (HL).OOH 

LD HL.412FH 

INC HL 

LD A.C40F3H) 

SUB L 


SUB D 

RET Z 


:C ■ 0 setzen wenn Keine Tau- 
sender trennung erwünscht ist 
:0 « Anzahl der Vorkommastellen 
:E = Anzahl der Nachkommaste l l en 
; A * Anzahl der Vorkommastellen 
:fiehr als 4 Vorkommastellen ? 

:3a: Entsprechende Anzahl füh- 
;render Nullen einsetzen 
:X in String mit 5 Ziffern um- 
randet n 

:A - Anzahl der Nachkoramastel l en 
.•Keine Nachkommastellen 7 
:3a: Bufferzeiger -1 
:Nachkommastel len erwünscht 7 
: ( A ist FFH wenn nicht !) 

:3a: Entsprechende Anzahl Nullen 
:einsetzen 

: Buf ferzei ger auf Ende des 
:Strings retten 

: Führende Nullen durch löschen 
:oder durch ersetzen 

: Buf f erzeiger zurück 
:Sprung wenn das Vorzeichen vor 
: der Zahl eingesetzt wurde 
:Sonst jetzt das Vorzeichen 
; hinter der Zahl einsetzen 
:String abschlieöen 
: HL = Bufferadresse - 1 
:Buf ferzeiger +1 
;A = LSB der Bu f f er adresse des 
:Dezimalpunkts 

LSB des jetzigen Buf f erzeigers 
:* Anzahl der Vorkommastellen ab 
;Buf ferzeiger 

: Ist das gleich der Anzahl der 
:gewünschten Vorkommastellen ? 
:3a: Fertig 


String im Buffer verschieben 

Eine Vorkommastelle löschen (d. h. Leerzeichen löschen) 


1 004 7E 
10D5 FE20 
1007 28F4 
1 0D9 FE2A 
1 ODB 28F0 
10DD 2B 
10DE E5 


LD A.CHL) 

CP 20H 

3R Z.10CDH 

CP 2AH 

3R Z.10CDH 

DEC HL 

PUSH HL 


:A * nächstes Bufferzeichen 
: führendes Leerzeichen 7 
:3a: Übergehen, nächstes Zeichen 
: vor der Zahl ? 

:3a: Übergehen, nächstes Zeichen 
: Nein : Bufferzeiger -1 
: Buf f erzei ger retten (Zeigt jetzt 
:auf das Vorzeichen bzw. die 
:erste Ziffer oder ’$') 
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10DF F5 
1 OEO OIDFIO 
1 0E3 C5 
10E4 D7 
10E5 FE2D 
10E7 C8 

1 0E8 FE2B 
10ER C8 

10EB FE24 
1 OED C8 

10EE CI 
1 OEF FE30 
10F1 200F 
10F3 23 

1 0F4 D7 
10F5 300B 

10F7 2B 


10F8 012B77 
* 1 0F9 2B 

»lOFPi 77 

10FB Fl 
1 OFC 28FB 

10FE CI 

10FF C3CE10 


PUSH RF 

LD BC.IODFH 

PUSH BC 

RST 10H 

CP 2DH 

RET 2 

CP 2BH 

RET Z 

CP 24H 

RET 2 

POP BC 

CP 30H 

3R NZ.1.102H 

INC HL 

RST 10H 

3R NC.U02H 

DEC HL 


LD BC.772BH 

DEC HL 

LD CHL).R 

POP RF 

3R Z.10F9H 

POP BC 

3P 10CEH 


:Zeichen im Stack ablegen 
: 10DFH als RET-Rdr setzen 
:Und Zahlenstringanfang suchen 
.•Nächstes Zeichen holen 
j * - * gefunden ? 

:3a: Zeichen retten, nächstes 

:Zeichen 

: ' + ’ gefunden 

:3a: Zeichen retten, nächstes 
: Zeichen 
: ’ s ’ gef unden ? 

:3a: Zeichen retten, nächstes 
: Zeichen 

:RET-Rdr wieder löschen 
:Führende Null gefunden ? 

:Nein: Feldüberlaur 

:3a: Zeiger +1 . Führende Null 

: übergehen 

:nächstes Zeichen holen 
.-Ist es eine Ziffer ? 

:Nein: Feldüberlauf 
:3a: Bufferzeiger -1 (also String 
:eine Stelle 'früher' im Buffer 
:beginnen lassen) 

:Buf ferzeiger -1 
:Zeichen wieder einsetzen 
:Zeichen aus Stack holen 
:Stringanfang erreicht ? 

: Nein : nächstes Zeichen einsetzen 
:3a: Bufferzeiger aus dem Stack 
; löschen 

:Stellenzahl jetzt ok ? 


: Feldüberlauf 

: Es wurden mehr Vorkommastellen Cbzw. Vorkommaz i f fern) erzeugt als gefordert 


1102 Fl 

1103 28FD 

1105 El 

1106 3625 
1108 C9 


POP RF 

3R Z.U02H 

POP HL 

LD CHD.25H 

RET 


:Zeichen aus Stack holen 
: letztes Zeichen ? 

: Nein : nächstes Zeichen holen 
:Buf ferzeiger zurück (zeigt auf 
:Stringanf ang) 

:’X' als Über l aufkennung 
: einsetzen 
: Fert ig 


: Formatierung gefordert 
: X ist im Fl leßkommaf ormat 


1 109 E5 
110R 1F 
110B DRRR11 


PUSH HL 

RRR 

3P C.URRH 


:::e 2314 


: Ze i ger retten 
: Bi t O nach CY schieben 
: Weiter bei 11RRH wenn 
: Exponentenausgabe erwünscht 
: Weiter bei 1124H wenn X im 
: SNG-Format ist 
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X ist im DBL-Format 

Zahlenstring erzeugen ohne Exponentendarstellung 

(Dazu darf aber X nicht mehr als 16 Vorkommastel l en haben 

d. h. X muß kleiner als ID+16 sein) 


1110 118413 
1113 CD490A 
1116 1610 

1118 FA3211 


LD DE.1384H 

CALL 0A49H 

LD D.10H 

OP M.U32H 


; DE : ID+16 

;CP X.CDE) « CP X. ID+16 

:D * Maximale Anzahl der auszu- 

: gebenden Stellen (16) 

iweiter bei U32H wenn X < ID+16 

; ist 


Feldüberlauf bei Fl ießkommazahl 


1 1 1 B El 
1UC CI 


POP HL 

POP BC - 


1 1 1 D CDBDOF 

1120 2B 

1121 3625 


CALL OFBDH 

DEC HL 

LD CHD.25H 


1123 C9 


RET 


X ist im SNG- Format 


: Buf f erzeiger zurück 
[Vor- und Nachkommast el l en- 
:zähler zurück 

[Unformatierten String erzeugen 
:Buf ferzeiger -1 

: ’X’ zur Überlaufkennung vor dem 
[String einsetzen 
: Fertig 


1124 010EB6 
1127 11CA1B 
112A CDOCOA 
1 12D F21B1 1 
1130 1606 


LD BC.0B60EH 

LO DE.1BCAH 

CALL OAOCH 

OP P.111BH 

LD D.06H 


; BCDE - 1E+16 

: CP X . BCDE ■ CP X. 1E+16 
: Feldüberlauf wenn X > 1E+16 
:D = Maximale Anzahl der auszu- 
[gebenden Stellen C6) 


1132 CD5509 
1135 C40112 

1138 El 

1139 CI 

1 13A FA5711 


CALL 0955H 

CALL NZ.1201H 

POP HL 

POP BC 

OP M.U57H 


: TEST2 . Zahl - 0 ? 

;Nein: Zahl auf 6 bzw. 16 Stellen 
:skal ieren 

;Buf ferzeiger zurück 

[Vor- und Nachkommastellenzahl 

: zurück 

[weiter bei der Skalierung er- 
weitert wurde 


Es wurde bei der Skalierung gekürzt (Keine Nachkommastellen) 
A = Exponentenoffset ( > 0 ) 


113D C 5 
113E 5F 
1 13F 78 
1140 92 


1141 93 

1142 "46312 


1145 CD7D12 


PUSH BC 

LD E.A 

LD A.B 

SUB D 

SUB E 

CALu D , 1 26 9H 

CALL 127DH 


[Stellenzahl retten 
:E = Exponentenoffset 
:A « Anzahl der Vorkommastellen 
maximale Anzahl der auszu- 
[gebenden Stellen 
Exponentenof Tset 
:Entsorechende Anzahl *'ührender 
[Nullen einsetzen 
[Dezimalpunktposition und Zähler 
[für die Tausender t rennung er- 
mitteln 



1148 CDA412 

114B B3 
114C C 477 12 


114F B3 
1150 C49112 

1153 Dl 

1154 C3B610 


CALL 12A4H 

OR E 

CALL NZ.1277H 


OR E 

CALL NZ.1291H 

POP DE 

3P 10B6H 


: Fl ie0kommazahl in unformatierten 
:String umwandeln 
:A = Exponentenoffset 
: Entsprechende Anzahl nach- 
folgender Nullen einsetzen 
: C Da der 10-Exponent nicht 
; ausgegeben wird) 

:A * Exponentenoffset 
:Evtl. fehlenden Dezimalpunkt 
: einsetzen 

Stellenzahl zurück nach DE 
.•Stellenzahl ok ? 


Es wurde bei der Skalierung erweitert C Nachkommastel l en vorhanden) 
A = Exponentenoffset C < 0 ) 


1157 5F 

1158 79 

1159 B7 
115A C4160F 
1 1 5D 83 


115E FA62U 

1161 AF 

1162 C5 

1163 F5 

1164 FC180F 
1167 FA6411 


116A CI 

116B 7B 
1 1 6C 90 


1 16D CI 


LD E.A 

LD A.C 

OR A 

CALL NZ.0F16H 

AOD A.E 


3P M.1162H 

XOR A 

PUSH BC 

PUSH AF 

CALL M.0F18H 

3P M.1164H 


POP BC 

LD A.E 

SUB B 


POP BC 


:E = Exponentenoffset 

:A = Anzahl der gewünschten Nach- 

: kommastel len + 1 

: Nachkommas tel l en erwünscht ? 

:3a: A -1 C wegen Dez i ma l punkt ) 

: A » Nachkommastellen 
:♦ Exponentenoffset 
:* negative Anzahl der bei der 
Skalierung zuviel erzeugten 
: Stel l en 

:A belassen wenn zuviel Stellen 

;erzeugt wurden 

:sonst A ■ 0 setzen 

Stellenzahl retten 

.•Anzahl der zuviel erzeugten 

Stellen retten 

:X - X/10. A +1 : 

Skalierung soweit zurücknehmen. 
:da0 die gewünschte Anzahl von 
:Nachkommastel len wieder erreicht 
: wi rd 

:B = negative Anzahl der zuviel 
:erzeugten Nachkommastellen 
:A * Exponentenof fset 
:♦ Anzahl der zuviel erzeugten 
:Nachkommastel len 

jetziger Exponentenoffset 
:Cnach Zurücknahme der Ska- 
: l ierung) 

Stellenzahl zurück 




116E 5F 
X 16F 82 


1170 78 

1171 F87F11 
1174 92 


1175 93 

1176 F46912 

1 179 C5 
1178 CD7D12 


U7D 1811 


LD E.8 

8DD 8 . 0 


LD 8 . B 

3P M.117FH 

SUB D 


SUB E 

C8LL P.1269H 

PUSH BC - 

C8LL 127DH 


3R 1 1 90H 


:E * Exponentenoffset C < 0 !) 

: Ist der Exponentenoffset + die 
;8nzahl der maximal zu erzeugen- 
den Stellen kleiner als Null ? 
:Cd. h. Sind keine Vorkomma- 
:stellen vorhanden ?) 

:8 ■ 8nzahl der auszugebenden 
: Vorkommastel len 
: Da : weiter bei 1 1 7FH 
:Nein: 8 ■ 8nzahl der auszugeben- 
den Vorkommastellen - 8nzahl der 
:maximal auszugebenden Stellen 
Exponentenoffset 

••Entsprechenden 8nzahl führender 
;Nullen in den Buffer setzen 
;Stellezahl retten 
:Dezimal punktpos i t ion und Zähler 
: für die Tausendertrennung 
: ermitteln 
weiter bei U90H 


Es sind keine Vorkommastellen vorhanden (siehe 116EH ff) 


117F CD6912 


1182 79 

1183 CD9412 

1186 4F 

1187 8F 

1188 92 

1189 93 
1188 CD6912 

118D C5 
1 18E 47 
1 18F 4F 


1 190 CD8412 

1193 CI 

1194 Bl 


1195 2003 
1197 28F340 


C8LL 


LD 

C8LL 

LD 

XOR 

SUB 

SUB 

C8LL 

PUSH 

LD 

LD 


C8LL 

POP 

OR 


3R 


LD 


1269H 


1294H 

C.8 


8 

D 

E 

1269H 

BC 

B . 8 

C. 8 


NZ, 1198H 


HL. C40F3H) 


:Gewünschte Vor komma f e l dl änge 
durch Einsetzen führender Nullen 
isimul ieren 

:8 * 8nzahl der gewünschten Nach- 
: kommastel l en + 1 
;Dezimalpunkt setzen. C = B 
:Nachkommafeldlänge nach C 
: zurückschreiben 
:8 - 0 

:8 = 0 - 8nzahl der maximal zu 
:erzeugenden Stellen 
:+ Exponentenoffset C+ da E < 0) 
.•Entsprechende 8nzahl Nullen nach 
dem Dezimalpunkt einsetzen 
sStellenzahl retten 
:t - 0 ( 8 ist 0 wegen 1269H) 

:C - 0 

:-> Keinen Dezimalpunkt und keine 
iTausendertrennung einsetzen 
unformatierten String erzeugen 
:Stellenzahl zurück 
:8 » 8nzahl der gewünschten Nach- 
: kommastel len +1 
:Nachkommastel len erwünscht 7 
:3a: Bufferzeiger belassen 
: ( Der BuTferzeiger zeigt auf das 
:letzte Zeichen des Strings !) 
:Nein: Bufferzeiger auf Dezimal- 
;punktposition zeigen lassen 
:(» Ende des Strings !) 
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119A 83 

119B 3D 
1 1 9C F46912 

U9F 50 

1 IAO C3BF10 


ADD A.E 

DEC 9 

CALL P.1269H 

LD D . B 

3P 1 OB FH 


A ■ Anzahl der gewünschten Nach- 
kommastel len -r 1 
+ Exponentenoffset 
A -1 (wegen Nachkommastellen +1) 
Entsprechende Anzahl nachfol- 
gender Nullen einsetzen 
D » Anzahl der gewünschten Vor- 
kommastel l en 
weiter bei 10BFH 


INT-Zah l mit Exponentenausgabe 


Dazu muß X ins SNG-I 

1 1 A3 E5 
11 A4 D5 
1 1 A5 CDCCOA 
11A8 Dl 
11A9 AF 


irmat gebracht werden 

PUSH HL 

PUSH DE - 

CALL OACCH 

POP DE 

XOR A 


:Buf ferzeiger retten 

:Formatbyte retten 

;X * CSNG CX) 

sFormatbyte zurück 

:A - 0 (Z«l da X im INT-Format) 


SNG- oder DBL-Zahl mit Exponentenausgabe 

1 IAA C ABO 1 1 3P Z.UBOH 

1 1 AD IE 10 LD E.10H 


1 1AF 011E06 
*11 BO 1E06 


LD BC.061EH 

LD E.06H 


1 1B2 CD5509 
11B5 37 
11B6 C40U2 


CALL 0955H 

SCF 

CALL NZ.1201H 


1 1B9 El 
11BA CI 
UBB F5 
1 1BC 79 
1 1BD B7 
11BE F5 


POP HL 

POP BC 

PUSH AF 

LD A.C 

OR A 

PUSH AF 


1 1BF 
1 1C2 
1 1C3 
1 1C4 
1 1C5 


CALL 

ADD 

LD 

LD 

AND 


NZ.0F16H 


04H 


1 1C7 FE01 
1 1C9 9F 
1 1 CA 57 
1 1CB 81 


CP 01H 

SBC A.A 

LD O.A 

ADD A.C 


C 


. A 


; wei ter bei 11B0H bei SNG-Zahl 
:E * maximale Anzahl der auszu- 
:gebenden Stellen (16) 

:E = maximale Anzahl der auszu- 
: gebenden Stellen (6) 

: TEST2 . X * 0 * 

:CY*1 

: Nein : X auf 6 bzw. 16 Stellen 
:skal ieren. CY = 0 
:Buf ferzeiger zurück 
;Stellenzahl zurück 
:Exponentenof fset retten 
:A = Anzahl der Nachkommastellen 
;Nachkommastel len erwünscht ? 
:Anzahl der Nachkommastellen 
: retten 

:3a: A -1 (wegen Dez i ma l punkt ) 

:+ Anzahl der Vorkommastellen 
:C * Gesamtlänge 
;A * Formatbyte 

: Vorzeichen hinter der Zahl aus- 
: geben *> 

: Nein : CY = 1 

:A = FF wenn nicht 

:D - A 

:A = Gesamtlänge belassen wenn 

:das Vorzeichen vor der Zahl aus- 

gegeben werden soll 

:Sonst die Gesamtlänge um eins 

:erniedr igen 

: C = Gesamt i änge 
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1 ICD 93 


1 ICE F5 
UCF C5 
UDO FC180F 
11D3 FflDOll 

1 1D6 CI 
1 1D7 Fl 
1108 C5 
1 1D9 F5 
1 1 DA FflDEll 

HDD PF 
UDE 2F 
1 1 DF 3C 
11E0 80 

1 iE 1 3C 
1 1E2 82 

1 1E3 47 
UE4 OEOO 
UE6 CDA412 
11E9 Fl 
11EA F47112 

11ED CI 
UEE Fl 

11EF CC2F09 

1 1 F2 Fl 

1 1 F3 3803 
11F5 83 

1 1 F6 90 

1 1F7 92 


1 1F8 C 5 

UF9 C07A10 
11 FC ES 
11 FD Dl 

U-E C2BF10 


SUB E 


PUSH PF 

PUSH BC 

CPLL M.0F18H 

DP M.UDOH 

POP BC 

POP PF 

PUSH BC 

PUSH PF 

DP n.UOEH 

XOR P 

CPL 

INC P 

PDD P.B 

INC P 

PDD P.D 

LD B.P 

LD C.OOH 

CPLL 12P4H 

POP PF 

CPLL P.1271H 

POP BC 

POP PF 

CPLL Z.092FH 

POP PF 

CB C.UF8H 

PDD P.E 

SUB B 

SUB D 


PUSH BC 

CPLL 1074H 
EX DE. HL 
POP DE 


:P = Gewünschte Gesamtlänge des 
:Strings - maximale Pnzahl der 
: auszugebenden Stellen 
: Ist die gewünschte Stellenzahl 
:kleiner als die erzeugte 
:Stel lenzahl 
{Differenz retten 
:Gesamtlänge retten 
:3a: X * X/10. P -1: 

:X um die Differenz der Stellen- 
: skal ieren 
: Gesamt länge zurück 
:Stel lendi f f erenz zurück 
:Gesamt länge retten 
:Stel lendi fferenz retten 
;weiter bei 11DEH wenn die 
Gesamtlänge > Stellenzahl war 
: sonst P ■ 0 

:P ■ positive Stellendifferenz 

j+ Pnzahl der gewünschten Vor- 
: kommastel l en 
; + l 

: - 1 (falls das Vorzeichen vor der 
:Zahl ausgegeben wird) 

;* Dezimalpunktposition 
.•Keine Tausendertrennung erzeugen 
{Unformat ierten String erzeugen 
:Stel lendi fferenz zurück 
{Entsprechenden Pnzahl nachfol- 
gender Nullen einsetzen 
{Stellenzahlen zurück 
{P = Pnzahl der Nachkommastellen 
{Nachkommastellen erwünscht ? 
{Nein{ Bufferzeiger -1 
{ (Dezi mal punkt wieder entfernen) 
{Exponentenoffset zurück 
{Ist X - 0 7 (siehe 11B5H ff) 

{ Da { 10-Exp ist auch Null 
{Nein{ maximale Stellenzahl 
.• addieren 

{Pnzahl der bereits erzeugten 
{Vorkommastellen abziehen 
{und die Pddition von (11E2H) 
{zurücknehmen 
{* 10-Exponent 

{Pnzahl der Vorkommastellen 
{ retten 

{ 10-Exo einsetzen 

{HL = Endzeiger 

{D * Pnzahl der gewünschten 

; Vorkommastel len 

{weiter bei ’.OBFH 
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: Skai ierung : 

; X auf 6 bzw. 16 Vor Kommas t e l l en bringen 
: 0: ft = 10-Exponentenof fset 


1201 D5 

1202 ftF 

1203 F5 

1204 ET 

1205 E22212 


PUSH 

XOR 

PUSH 

RST 

3P 


20H 

PO. 1222H 


:DE retten 

;Exponentenof fset “ OOH 
: Exponentenof fset retten 
: TSTTYP , Ist X im SNG-Format 
:3a: weiter bei 1222H 


: X ist im DBL-Format 


1208 3R2441 
1 206 FE91 
120D 022212 
1210 116413 
1213 212741 
1216 CDD309 

1219 CDftlOD 
w 121 C Fl 

121D D60R 

121 F F5 

1220 18E6 


LD ft . ( 4 124H ) 

CP 91H 

3P NC.1222H 

LD DE.1364H 

LD HL.4127H 

CftLL 09D3H 

CftLL ODftlH 

POP ftF 

SUB OftH 

PUSH ftF 

3R 1208H 


: ft - Exp CX) 

: Ist X > ■ 2 hoch 16 *> 

:3a: weiter bei 1222H 
:Nein: DE : 1D+10 
: HL * Zeiger auf Y 
: CHL) - (DE) : Y - 1D+10 
:X«X«Y»X* 1D+10 
:Exponentenof fset zurück 
:Expoffset -10 (10 Dezimalstellen 
: verschoben) 

.•Exponentenoffset retten 
: Wei ter bis X >» 2 hoch 16 


: X ist im SNG-Format bzw X >« 65536 wenn im DBL-Format 


1222 CD4F12 


CftLL 124FH :X solange durch 10 teilen bis 

; X < 1E+6 bzw X < 1D+16 


: X ist jetzt < 1E+6 bzw < 1E+16 


1225 E7 

1226 300B 


RST 20H 

3R NC.1233H 


: X ist im SNG-Format 


1228 014391 
122B 11F94F 
122E CDOCOft 
1231 1806 


LD BC.9143H 

LD DE.4FF9H 

CALL OftOCH 

3R 1239H 


: X ist im DBL-Format 


1233 U6C13 LD DE.136CH 

1236 CD490A CftLL 0A49H 


1239 F24B12 


3P P.124BH 


123C Fl 
1 230 CDOBOF 

1240 F5 

1241 18E2 


POP ftF 

CftLL OFOBH 

PUSH ftF 

3R 1225H 


: TSTTYP . Ist X im DBL-Format ? 
:3a: weiter bei 1233H 


: BCDE = 1E+5 

:CP X . BCDE * CP X. 1E+5 
[weiter bei 1239H 


: DE : 1D+15 

; CP X. (DE) - CP X. 1D+15 
[Fertig wenn 

: X >- 1D+15 bzw. X >- 1E+5 
[Exponentenoffset zurück 
:X - X * 10 (SNG.DBL) ft -1 
[Exponentenoffset retten 
.-Weiter bis 

: X >* 1E+5 bzw. X ;= 1D+15 
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X >* 1E+6 bzw. X >■ 1D+16 
(Fortsetzung von 124FH ff) 


1243 Fl 

1244 CD180F 

1247 F5 

1248 CD4F12 


POP PF 

CPLL 0F18H 

PUSH PF 

CPLL 124FH 


: Exponentenof fset zurück 
: X « X/10. P +1 
: Exponentenof fset retten 
: Nochmal testen 


Skalierung abgeschlossen: 


1E + 5 <« X 
1E+15 <« X 


1E+6 wenn X im SNG-Format 
1E+16 wenn X im DBL-Format 


124B Fl 
124C 87 
124D Dl 
124E C9 


POP PF 

OR P 

POP DE 

RET 


:Exponentenof fset zurück 
: CY - 0 (für 11B5H ff) 

: DE zurück 


X solange durch 10 teilen bis X < 1E+6 bzw. X < 1D+16 


124F E7 
1250 EP5E12 


RST 20H : TSTTYP . Ist X im DBL-Format 

DP PE.125EH :3a: weiter bei 125EH 


X ist im SNG-Format 


1253 017494 
1256 1 1 F823 
1259 CDOCOP 
125C 1806 


LD BC.9474H : BCDE «* 1E+6 

LD DE.23F9H 

CPLL OPOCH : CP X.BCDE - CP X.1E+6 

3R 1264H .-weiter bei 1264H 


X ist im DBL-Format 


125E 117413 
1261 CD490P 


LD DE.1374H : DE : 1D+16 

CPLL 0P49H :CP X.CDE) » CP X. 10+16 


1264 El 

1265 F24312 

1268 E9 


POP HL : HL ■ Ret-Pdr. 

DP P.1243H : weiter bei 1243H wenn 

: X >* 1E+6 bzw. X >« 1D+16 
3P (HL) : RET 


: P Nullen in Buffer ab (HL) schreiben 
: (Nachkommastellen) 


1269 B7 
1 26P CS 
126B 3D 
126C 3630 
1 26E 23 
:26F 18F3 


OR P 

RET Z 

DEC P 

LD ( HL ) . 30H 

INC HL 

3R 126PH 


: Zäh l er - 0 7 
:3a: Fertig 
:Nein: Zähler -1 
: ‘ 0' einsetzen 
: Zeige- +1 

: Fer t ig 7 



und ’ . ' setzen 




: ft Nullen in Buffer ab 
: C Vorkommastet len) 

1271 2004 

1273 C8 

1274 CD9112 
1277 3630 
1279 23 
127ft 3D 
127B 18F6 


HL) schreiben und 


DR NZ.1277H 

RET Z 

CALL 1291H 

LD CHD.30H 

INC HL 

DEC ft 

DR 1273H 


: Zähler - 0 ? 

.•Nein: weiter bei 1277H 
:Da: Fertig 
; ' . * und ’ . ' setzen 
: ’0' einsetzen 
: Zeiger +1 
: Zäh l er -1 
:Zähler * 0 ? 


: Dezimalpunktposit ion und Zahler für die Tausender t rennung ermitteln 


1 27D 7B 
127E 82 

127F 3C 
1280 47 


1281 3C 

1282 D603 
1284 30FC 
1286 C605 
1293 4F 

1289 3AD840 
128C E640 
128E CO 

1 28F 4F 

1290 C9 


LD ft.E 

ADD ft . D 

INC ft 

LD B.ft 


INC ft 

SUB 03H 

DR NC.1282H 

ADD A.05H 

LD C.ft 

LD A.C40D8H) 

AND 40H 

RET NZ 

LD C.A 

RET 


ft * Exponentenoffset 

maximale Anzahl der erzeugten 
Stel len 
+ 1 

* Dez i mal punkt pos i t ion 
C* Anzahl der Vorkommastellen) 
Zähler für die Tausender t rennung 
ermitteln : 
ft +i 

ft * ft div 3 
CGanzzahlige Division) 

+ 5 

Ergibt Zähler für die Tausender- 
trennung 
ft « Formatbyte 

Tausendertrennung erwünscht ? 

Da: B und C ok 
Nein: C auf 0 setzen 


’ . ' und ' . ’ setzen 

B = Anzahl der restlichen Vorkommastellen (bis zum Dezimalpunkt) 

C = Anzahl der restlichen Ziffern bis zur nächsten Tausenderposition 
C * 0 wenn keine Tausendertrennung durchgeführt werden soll 


1291 05 

1292 2008 


DEC B : Vorkommastel len -1 

:Dezimalpunktposit ion erreicht "> 
DR NZ.129CH ; Ne i n : setzen 


1294 362E 


LD 


( HL ) . 2EH :Da: ’ . * in den Buffer setzen 


: Bufferzeiger der Dezimalpunktstelle retten 
: Keine Tausender t rennung mehr durchführen 


1296 22F340 
1299 23 
1 29A 48 

1 29B C9 


LD 

INC 

LD 

RET 


C40F3H) .HL 

HL 

C.B 


und Bufferzeiger retten 
Bufferzeiger +1 

C = 0 (Keine Tausender t rennung 
mehr ) 
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: Dezimalpunkt noch 


icht erreicht: Tausendertrennung einfügen 


129C OD 

129D CO 
129E 362C 
12A0 23 
12fU 0E03 

12A3 C9 

: Fl ießkommazahl 

12A4 D5 
1 2A5 E7 
12A6 E2EA12 

: X ist im OBL - F< 
; Unformatierten 
; C 10 Stel len mii 
; und 5 Stellen 

12A9 C5 
12AA E5 
12AB CDFC09 
12AE 21TC13 
12B1 CDFT09 
12B4 C0770C 

1 2B7 A F 
12B8 CD7B0B 
12BB El 
12BC CI 
12BD 118C13 
12C0 3E0ft 

12C2 C09112 
12C 5 C5 
12C 6 F5 
1 2C7 E5 
12C 8 D5 
12C 9 062F 

12CB 04 
12CC El 
12CD E5 
12CE CD480D 

12D1 30F8 


DEC C 

RET NZ 

LD CHU.2CH 

INC HL 

LD C.03H 

RET 


:Nächste Tausenderposition 
:erreicht 
: Nein : Fertig 

:3a: in den Buffer setzen 

:Bufferzeiger +1 
: Zäh l er * 3 für nächste 
: Tausenderstel le 


in unformatierten String umwandeln 


PUSH 

RST 

3P 


20H 

PO. 12ERH 


: DE retten 

; TSTTYP , Ist X im SNG-Format 
:3a: weiter bei 12ERH 


irmat (und 1E+15 <- X < 1E+16 ') 

String mit 17 Stellen erzeugen 
Hilfe der DBL-Mant issen . 2 Stellen mit SNG-Mant issen 
im INT-Format) 


PUSH BC 

PUSH HL 

CftLL 09FCH 

LD HL.137CH 

CftLL 09F7H 

CftLL 0C77H 

XOR ft 

CftLL 0B7BH 

POP HL 

POP BC 

LD DE.138CH 

LD ft.OftH 


: Stel l enzahl er retten 
:Buf ferzeiger retten 
: Y = X 

: HL : 0.5 (DBL) 

:X » (HL) * 0.5 
;X»X+Y»0.5+V 
;(X aufrunden) 

;CY - 0 

:Nachkommastel len löschen 

:Buf ferzeiger zurück 

:Stel lenzähl er zurück 

: DE : DBL -Mant i ssen 

;ftb (DE) stehen 10 DBL-Mant issen 


CftLL 

PUSH 

PUSH 

PUSH 

PUSH 

LD 


' . ’ und ' . ’ setzen 
Stellenzähler retten 
Mantissenzähler retten 
Bufferzeiger retten 
Mantissenzeiger retten 
B = ASCII -Wert von '0' - 1 


INC 

POP 

PUSH 

CftLL 


B 

HL 

HL 


3R NC.12CBH 


;nächste Ziffer 
:HL » Mantissenzeiger 
:Mant issenzeiger retten 
:X « X - (HL) : Mant isse 
:subtrahieren . Unterlauf 
:Nein: Nächste Ziffer 
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12D3 El 
12D4 CD360D 

12D7 EB 

1 208 El 

1 209 70 
12DA 23 

12DB Fl 
12DC CI 
12DD 3D 
12DE 20E2 

12E0 C5 
12E1 E5 
12E2 21 1041 
12E5 CDB109 


12E8 180C 


POP HL 

CALL 0D36H 

EX DE. HL 

POP HL 

LD (HL).B 

INC HL 


POP 

POP 

DEC 

DR 


:Da: Mantissenzeiger zurück 
:X ■ X + (HL) (Subtraktion 
jzurücknehmen) 

: DE - Mantissenzeiger 
: HL = Bufferzeiger 
:Ziffer einfügen 
: Buf ferzei ger auf nächste 
Dezimalstellen erhöhen 
: Mant issenzähl er zurück 
:Stel lenzähler zurück 
:Mant issenzähler -1 
:Nächste Dezimalstelle 


PUSH BC 

PUSH HL 

LD HL.411DH 

CALL 09B1H 


DR 12F6H 


:Stel lenzähler retten 
:Buf ferzeiger retten 
: HL « Zeiger auf X ( DBL ) 

: X - BCDE « (HL) CSNG) 

:Die restlichen LSBs der DBL-Zahl 
.•nach X als SNG-Zahl schieben 
;0ie restlichen Dezimalstellen 
iwerden im SNG-Format verarbeitet 
; ( da X jetzt < 1D+6 ist) 


X ist im SNG-Format (und 1E+5 <« X < 1E+6 ') 

Unformatierten String mit 7 Stellen erzeugen 

(2 Stellen mit Hilfe der SNG-Mant i ssen und die restlichen 5 Stellen 
im INT-Format) 


1 2EA C 5 
12EB E5 
12EC CD0807 

1 2EF 3C 
1 2F0 CDFBOA 
1 2F3 CDB409 


1 2F6 
12F7 
12F8 
12F9 


PUSH BC 

PUSH HL 

CALL 0708H 

INC A 

CALL OAFBH 

CALL 09B4H 

POP HL 

POP BC 

XOR A 

LD DE.13D2H 


:Stel lenzähler retten 
: Buf f erzeiger retten 
:X » X + 0.5 (Mantisse richtig- 
:stel len) 

; A < > 0 (für OAFBH) 

:Alle Nachkommastellen löschen 
: X = BCDE 

: (BCDE war Ergebnis von OAFBH) 
:Buf ferzeiger zurück 
: Stel l enzähl er zurück 
:CY - 0 

:DE = Mantissenzeiger 


3F 


12FD 

1300 

1301 

1302 

1303 

1304 


CCF 


CALL 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 


1291H 

BC 


CV = 1 beim ersten Durchlauf 
danach CY » 0 
* . * und ’ . * setzen 
Stellenzähler retten 
Wi ederhol ungs f l ag retten 
Bufferzeiger retten 
Mantissenzeiger retten 
BCDE * X 
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1307 El 

1308 062F 


POP HL : Mant issenzeiger zurück nach HL 

LD B.2FH ;A - ASCII-Wert von *0' - 1 


130A 04 
1 30B 7B 
1 30C 96 
1300 5F 
1 30E 23 
1 30F 7 A 

1310 9E 

1311 57 

1312 23 

1313 79 

1314 9E 

1315 4F 

1316 2B 

1317 2B 


INC B 

LD A.E 

SUB C HL 1 

LD E.A 

INC HL 

LD A.D 

SBC A.CHL) 

LD D.A 

INC HL 

LD A.C 

SBC A.CHL) 

LD C.A 

DEC HL . 

DEC HL 


OB NC.130AH 


:nachste Ziffer 
: CDE * CDE - CHL): 
:CMantissen subtrahieren! 


:Mant issenzeiger wieder auf den 
:Anfang der Mantisse zeigen 
: l assen 

:Unterlauf bei Mant issensub- 
;traktion 7 

;Nein: nächste Ziffer W 


1 3 1 A CDB707 


131D 23 
1 3 1 E CDB409 

1321 EB 

1322 El 

1323 70 

1324 23 

1325 Fl 

1326 CI 

1327 3803 


CALL 07B7H 


INC HL 

CALL 09B4H 


EX 

POP 

LD 

INC 

POP 

POP 

OR 


:0a: CDE - CDE + (HL) 

: ( Subt rakt ion zurücknehmen) 
:Mant issenzeiger +1 
:X - BCDE . neuen Wert nach X 
: zurückschrei ben 
: DE - Mantissenzeiger 
:Buf ferzeiger zurück 
:Ziffer einsetzen 
:Buf ferzeiger +1 
:Wiederholungsf lag zurück 
:Stel lenzahl er zurück 
Wiederholung ? (Es gibt nur 
:2 Mantissen im SNG-Format) 


1329 13 
132A 13 
132B 3E04 


132D 1806 


INC DE 

INC DE 

LD A.04H 


OR 1335H 


:Mant issenzeiger +2 
:CZur INT-Ver arbei tung) 

:Nur noch 4 Mantissen verarbeiten 
:(Die erste INT-Mantisse mit 
: 10000 steht auch im SNG-Format) 

: Rest liehe Ziffern im INT-Format 
: verarbeiten 
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X ist im INT-Format (und 0 <* X < 32768 !) 
Unformatierten String mit 5 Stellen erzeugen 


132F D5 
1330 1 10813 
1333 3E05 


PUSH DE :DE retten 

LD DE.13D8H : DE * Mantissenzeiger 

LD A.05H ;5 Mantissen 


1335 CD91 12 

1338 C 5 

1339 F5 
133A E5 
133B EB 
133C 4E 
133D 23 
133E 46 
1 33F C5 

1340 23 

1341 E3 

1342 EB 

1343 2A2141 
1346 062F 


CALL 1291H 

PUSH BC 

PUSH AF 

PUSH HL 

EX DE. HL 

LD C.(HL) 

INC HL 

LD B.(HL) 

PUSH BC . 

INC HL 

EX (SP). HL 

EX DE. HL 

LD HL . ( 4 121 H ) 

LD B.2FH 


' , ' und ’ . ’ setzen 
;Stel lenzähler retten 
Mantissenzähler retten 
: Buf ferzeiger retten 
HL = Mantissenzeiger 
;BC « Mantisse 


:Mantisse retten 

: HL * Zeiger auf nächste Mantisse 
:Mant issenzeiger retten 
;Mantisse zurück nach HL 
: DE * Mantisse 
; HL * X 

:B « ASCII -Wert von '0' - 1 


1348 04 

1349 7D 
1 34A 93 
134B 6F 
1 34C 7C 
1 34D 9A 
1 34E 67 

1 34F 30F7 

1351 19 

1352 222141 

1355 Dl 

1356 El 

1357 70 

1358 23 

1359 Fl 
1 35A CI 
1 35B 3D 

1 35C 20D7 
135E CD9U2 

1361 77 

1362 Dl 

1363 C9 


INC 

LD 

SUB 

LD 

LD 

SBC 

LD 

DR 

ADD 

LD 

POP 

POP 

LD 

INC 

POP 

POP 

DEC 

DR 

CALL 

LD 

POP 

RET 


B 

A.L 

E 

L.A 
A.H 
A.D 
H . A 

NC . 1348H 
HL. DE 

(4121H) .HL 

DE 

HL 

(HL) .B 

HL 

AF 

BC 

A 

NZ. 1335H 
1291H 
(HL) ,A 
DE 


inächste Ziffer 
; HL ■ HL -OE 
:Mantisse subtrahieren 


:Unterlauf ? 

;Nein: nächste Ziffer 
:Da: Subtraktion zurücknehmen 
:und neuen Wert nach X zurück- 
: schreiben 

:Mant issenzeiger zurück 
: Buf f erzeiger zurück 
.•Ziffer einsetzen 
:Buf f erzeiger +1 
:Mant issenzähler zurück 
:Stel lenzähler zurück 
: Mant issenzäh l er -1 
:Nächste Mantisse 
: ' . ' und * . ' setzen 
:String mit OOH abschließen 
: DE zurück 



Fl ie0kommakonstanten 


1364 00 

1365 00 

1366 00 

1367 00 

1368 F9 

1369 02 
136(4 15 
136B 82 


: 10+10 


: 1E+10 


136C FD 
136D FF 
136E 9F 
1 36F 31 

1370 89 

1371 5F 

1372 63 

1373 B2 


: 1D+15 


: 1E+15 


1374 FE 

1375 FF 

1376 03 

1377 BF 

1378 C9 

1379 1B 
1378 OE 
137B B6 


: 1E+16 


1 37C 00 
1370 00 
137E 00 
137F 00 

1380 00 

1381 00 

1382 00 

1383 80 


(DBL) 


1384 00 

1385 00 

1386 04 

1387 BF 

1388 C9 

1389 1B 
1388 OE 
138B B6 


: 1D+16 


: 1E+16 


SNG) 



Festkommakonstanten (Mantissen 
LSB MSB 

1 38C 00 80 C6 A4 7E 8D 03 

1393 00 40 7A 10 F3 5A 00 

139A 00 A0 72 4E 18 09 00 

13A1 00 10 A5 D4 E8 00 00 

1 3A8 00 E8 76 48 17 00 00 

13AF 00 E4 OB 54 02 00 00 

13B6 00 CA 9A 3B 00 00 00 

13BD 00 El F5 05 00 00 00 

1 3C4 80 96 98 00 00 00 00 

1 3CB 40 42 OF 00 00 00 00 

1 302 AO 86 01 

1 3D5 10 27 00 

1 308 10 27 

1 3DA E8 03 

1 3DC 64 00 

13DE OA 00 


für Zahlenumwandlung) 


1000000000000000 

100000000000000 

10000000000000 

1000000000000 

100000000000 

10000000000 

1000000000 

100000000 

10000000 

1000000 

100000 

10000 

10000 

1000 

100 

10 


- 1D+15 

- 1D+14 

- 10+13 

- 1D+12 
« 1 D+ 1 1 
« 1D+10 
» 10+9 

- 1D+8 

- 1D+7 
= 1 D+6 

- 1 E+5 
* 1E+4 
(INT) 


1 3E0 01 00 


UPRO für SQR und RTN: Ergebnis der Routine negieren (X 


13E2 218209 
13E5 E3 

13E6 E9 

X * SQR C X ) * X 

13E7 CDR409 
1 3EA 218013 
13ED CDB109 
13F0 1803 

X - (SP) hoch X 


LD HL.0982H 

EX (SP). HL 

3P (HL) 

0.5 

CALL 09A4H 

LD HL.1380H 

CALL 09B1H 

0R 13F5H 


1 3F2 
1 3F5 
13F6 
1 3F7 
1 3FA 
13FB 


CALL 

POP 

POP 

CALL 

LD 

OR 


0AB1H 

BC 

DE 

0955H 


2. 1439H 


13FD F20414 


OP P.1404H 


1400 B7 


OR A 


1401 CA9A19 OP Z.199AH 

1404 B7 OR A 


1405 CA7907 

1408 D5 

1409 C5 
1 40A 79 

1 40B F67F 
140D CDBF09 

1410 F22114 


OP 

PUSH 

PUSH 

LD 

OR 

CALL 

OP 


Z.0779H 

DE 

BC 


7FH 
09BFH 
P. 1421H 


1413 

1414 

1415 

1418 

1419 
1 4 1 A 
141B 


PUSH 

PUSH 

CALL 

POP 

POP 

PUSH 

CALL 


BC 

0B40H 


141E El 
14 1F 7C 


POP HL 

LD A.H 


1420 1F 


RRA 


- -X) 

: HL * Adresse der Routine X « -X 
: HL als RET-Adresse im Stack 
: ab legen 

: Zurück nach SQR bzw. ATN 


: ( SP) * X 

; HL : Konstante 0.5 
:X - BCDE « (HL) 

:(SP) hoch X ausrechnen 


:X = CSNG (X) (Exponent) 

: BCDE « (SP) (Basis) 

; TEST2 : Ist der Exponent Null ? 
:A « Exp (Basis) 

:0a: EXP (0) ausrechnen 
: (Ergibt auch 1) 

:Ist der Exponent positiv 7 
:0a: weiter bei 1404H 
:Nein: Ist die Basis Null ? 

:(Bei negativem Exponenten) 

:0a: /O-Error 

:Nein: Ist die Basis Null ? 

:(Bei positivem Exponenten) 

:0a: Ergebnis ist Null 
:Basis retten 

: A - MSB (Basis) 

:Vorzeichen der Basis überprüfen 
: BCDE = X » Exponent 
iweiter bei 1421H wenn Basis 
: positiv (CY * 0. Z « O !) 
;Exponent retten 

: X * INT (X) - INT (Exponent) 

: Exponent zurück 

: LSB (X) retten 
: CP X . BCDE 

; CP INT( Exponent ) . Exponent 
:Ist der Exponent ganz- 
zahlig 7 
; LSB (X) zurück 

:A * LSB (X) ■ INT ( Exoonent ) . 
:da Exoonent < 88 (also im 
: Bereich 0 - 255) 

;CY * A.O (Niedrigstes 3it des 
.•Exponenten) 

; Ist :er Exponent unge-zae ~ 



Basis 


_ 


1421 El 

1422 222341 

1425 El 

1426 222141 
1429 DCE213 


142C CC8209 


142F D5 

1430 C5 

1431 CD0908 

1434 CI 

1435 Dl 

1436 CD4708 


: X « EXP C X ) 

: Nur für -88.7228 


POP HL 

LD C4123HKHL 

POP HL 

LD C4121HD.HL 

CALL C.13E2H 


CALL 2.0982H 


PUSH 

PUSH 

CALL 

POP 

POP 

CALL 


;X - (SP) - 


:0a: Ergebnis negieren 
; C wenn bei negativer Basis der 
:Exponent ungerade ist) 

:Basis positiv machen 

:(wenn der Exponent ganzzahlig 

: ist . siehe 141BH) 

:Exponent retten 

:X»L0G(X) (Basis l ogar i t hmieren) 
;Exponent zurück 

: X ■ BCDE * X 
:■ Exponent * LOG (Basis) 

:Und nun EXP( Exponent*L0G( Bas is ) ) 
: berechnen 


X <= 87.3365 berechenbar 


1439 C0A409 
143C 013881 
143F 113BAA 
1442 CD4708 

1445 3A2441 
1448 FE88 


1 44A D23109 
1 44D CD400B 


1450 C680 
1452 C602 

1454 DA3109 

1457 F5 

1458 21F807 
1 45B CD0B07 
145E CD4108 

1461 Fl 

1462 CI 

1463 Dl 


CALL 09A4H 

LD BC.8138H 

LD DE . 0AA3BH 

CALL 0847H 

LD A , ( 4 1 24H ) 

CP 88H 


OP NC . 093 1 H 

CALL 0B40H 


ADD A.80H 

ADD A.02H 

OP C . 093 1H 

PUSH AF 

LD HL.07F8H 

CALL 070BH 

CALL 084 1H 

POP AF 

POP BC 

POP DE 


:(SP) = X. Argument retten 
: BCDE - 1.4427 = 1 ✓ L0G(2) 

: X - BCDE * Arg - Arg / L0G(2) 

:C= 2-Exponent des Ergebnisses !) 
:A = Exp (X) 

: Ist Exp(X) >« 88H ? 

:-> Ist X >« 2 hoch 8 ? 

:-> Ist Ar g/L0G( 2) > 127 ? 

: ( bZM . Ist Arg/L0G( 2) < -128 ? 

:-> Ist Arg > 88.0297 
: ( bzw . Ist Arg < -88.7228 *) 

:0a: OV-Error wenn Arg > 88.0297 
: Erg * 0 wenn X < -88.7228 
:A « X - INT ( X) 

:( X - INTC Arg/L0G( 2) ) 

:( = 2-Exponent des Ergebnisses ) 
: A > 7DH ? CA + 82H > FFH '’l 
:-> INT( Arg/L0G( 2) ) > 125 •> 

:-> X > 87.3365 ? 

:0a: OV-Error 

: 2-Exponent + Offset (80H) + 2 
: retten 
: HL : 1 

:X * X + (HL) ■ X + 1 
:X * X * L0G( 2) 

:2-Exponent zurück 
: BCDE = (SP) - Argument 
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1464 

F5 

PUSH 

8F 

2-Exponent retten 


1465 

CD1307 

C8LL 

0713H 

X * BCDE - X 


1468 

CD8209 

C8LL 

0982H 

X • -X 


146B 

217914 

LD 

HL. 1479H 

HL : Koeffizienten 


1 46E 

CD8914 

C8LL 

1489H 

Reihe2 berechnen 


1471 

110000 

LD 

DE . 0000H 

DE - OOOOH 


1474 

CI 

POP 

BC 

B = 2-Exponent + 2 


1475 

48 

LD 

C .D 

C - OOH 


1476 

C34708 

DP 

0847H 

X - BCDE * X 






* (2 hoch 2+2-Exponent ) * X 


Koef r iz ienten 

für EXP 




’ 1 

bedeutet 

hier die Fakultät der Zahl ( 

! -1*2*3) 


1479 

08 



8 Koeffizienten 


1478 

40 


" 

-1.41316E-4 - -1/7076 


1 47B 

2E 



ca. 1/5040 - -1/7' 


1 47C 

94 





147D 

74 










w 

1 47E 

70 



1 . 32988E -3 - 1/752 


147F 

4F 



ca. 1/720 « 1/6' 


1480 

2E 





1481 

77 





1482 

6E 



-8 . 30 1 36E-3 - -1/120 


1483 

02 



- -1/5! 


1484 

88 





1485 

78 





1486 

E6 



:0. 0416574 - 1/24 


1487 

80 



- 1/4' 


1488 

28 





1489 

7C 





1488 

50 



: -0. 166665 - -1/6 


1488 

88 



- -1/3' 


1 48C 

88 





1480 

7E 





1 48E 

FF 



: 0 . 5 - 1/2 

W 

148F 

FF 



- 1/2' 


1490 

7F 





1491 

7F 





1492 

00 



: - 1 - -1/1! 


1493 

00 





149ü 

80 





1495 

81 





1496 

00 



; l 


1497 

00 





1498 

00 






91 
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Reihenberechnung 1 

Berechnet die Taylor-Reihe der Form: 

y = kl*x + k2*x*x*x + k3*x*x*x*x*x ... (kl. k2 . k3 sind Koeffizienten} 

I: HL = Zeiger auf die Koef f iz ientent abel l e 

Das erste Byte der Tabelle gibt die Anzahl der Koeffizienten an. 
dann folgen die Koeffizienten in umgekehrter Reihenfolge (kl zuletzt) 
X = Faktor in den Reihengliedern (x im Beispiel) 

0: X = Ergebnis der Reihenberechnung (y im Beispiel) 


149A 

CDA409 

CALL 

09A4H 

CS P) » X 

149D 

1 1320C 

LD 

DE.0C32H 

OE - Adresse für X * X * CSP) 

14A0 

D5 

PUSH 

DE 

Als RET-Adr im Stack ablegen 

14A1 

E5 

PUSH 

HL 

Tabellenzeiger retten 

1 4A2 

CDBF09 

call 

09BFH 

BCDE « X 

14A5 

CD4708 

CALL 

0847H 

X « X * BCDE - X * X 

14A8 

El 

POP 

HL - 

Zeiger zurück und 
Reihenberechnung 2 mit X*X 
durchführen und Ergebnis 
nochmal mit X multiplizieren 

Reihenberechnung 2 



Berechnet die 

Taylor-Reihe der 

Form : 


y - kl + k2*x 

+ k3*x*x + k4*x*x»x . . . 


I und 0 siehe 

Rei henberechnung 

1 


1 4A9 

CDA409 

CALL 

09A4H 

CSP) - X 

1 4AC 

7E 

LD 

A. (HL) 

A » Anzahl der Koeffizienten 

14AD 

23 

INC 

HL 

HL - 1. Zahl (letzter Koeffi- 
zient in der Reihe) 

1 4AE 

CDB109 

CALL 

09B1H 

X - BCDE - CHL) - 1. Zahl 

14B1 

06F 1 

LD 

B.0F1H 


1 4B2 

Fl 

POP 

AF 

Zäh l er zurück 

14B3 

CI 

POP 

BC 

BCDE - X 

1 4B4 

Dl 

POP 

OE 


1 4B5 

3D 

DEC 

A 

: Noch Koeffizienten 7 

I486 

C8 

RET 

Z 

: Ne i n : Fertig 

14B7 

D5 

PUSH 

DE 

: BCDE retten 

1 4B8 

C5 

PUSH 

BC 


1 4B9 

F5 

PUSH 

AF 

: Zäh l er retten 

1 4BA 

E5 

PUSH 

HL 

;Zeiger retten 

1 4BB 

CD4708 

CALL 

0847H 

Ergebnis - Ergebnis * BCDE 

1 4BE 

El 

POP 

HL 

; Zeiger zurück 

14BF 

CDC209 

CALL 

09C2H 

BCDE * CHL) C« Koeffizient) 

14C2 

E5 

PUSH 

HL 

iZeiger retten 

1 4C3 

CD1607 

CALL 

0716H 

Ergebnis * Ergebnis + BCDE 

1 4C6 

El 

POP 

HL 

:Zeiger zurück 

14C7 

18E9 

DR 

14B2H 

Nächstes Glied berechnen 



INTC RND CO) « INTCX) + 1 ) 


X - RND C X ) 

Für X >« 1 gitt: RND C X ) - 


14C9 CD7F0R 
14CC 7C 
14CD B7 
14CE FR4R1E 
14D1 B5 
14D2 CRF014 
14D5 E5 
1 4D6 CDF014 
14D9 CDBF09 
1 4DC EB 
14DD E3 
14DE C5 
14DF CDCFOR 
1 4E2 CI 
14E3 Dl 
14E4 CD4708 
14E7 21F807 
14ER CD0B07 
1 4ED C3400B 


CRLL 0A7FH 

LD A.H 

OR R 

3P M.1E4AH 

OR L 

3P Z.14F0H 

PUSH HL 

CRLL 14F0H 

CRLL 09BFH 

EX DE. HL 

EX CSP). HL 

PUSH BC 

CRLL OACF-H 

POP BC 

POP DE 

CRLL 0847H 

LD HL.07F8H 

CRLL 070BH 

3P 0B40H 


:X « HL « CINT CRrg) 

:Ist das Argument negativ ? 

;3a: FC-Error 

: Ist das Argument gleich Null *> 
;3a: RND CO) berechnen 
{Argument retten 
: RND CO) berechnen 
; BCDE - X - RND CO) 

; C SP) « BCDE. HL * Argument 


:X » CSNG CHL) 

: BCDE - CSP) - RND CO) 

jX * X * BCDE - Arg * RND CO) 
: HL : 1 

;X * X +• CHL) « X + 1 
: X - CINT CX) 


X « RND C 0 ) 

« letzte Zufallszahl * 0.253514 + 0.022228 Cohne Beachtung des Übertrags) 


14F0 219040 
14F3 E5 
14F4 110000 
14F7 4B 

1 4F8 2603 

1 4FR 2E08 

1 4FC EB 
1 4FD 29 
1 4 FE EB 
1 4FF 79 

1500 17 

1501 4F 

1502 E3 

1503 7E 

1504 07 

1505 77 

1506 E3 

1507 D21615 
150A E5 
150B 2RRA40 

150E 19 
1 50F EB 


LD 

PUSH 

LD 

LD 

LD 

LD 

EX 

ADD 

EX 

LD 

RLA 

LD 

EX 

LD 

RLCA 

LD 

EX 

3P 

PUSH 

LD 

ADD 

EX 


HL.4090H 

HL 

DE.0000H 

C.E 


H.03H 

L.08H 

DE. HL 
HL. HL 
DE. HL 
A.C 


: HL : Mul t ipl ikator 

{Zeiger retten 

{ CDE » 000000H 

{CIn CDE wird das Ergebnis 

{ berechnet ) 

{H - Bytezahler 
{ C 3 Bytes Mantisse) 

{L - Bitzähler 
{ C 8 Bits pro Byte) 

{CDE um ein Bit nach links 
{ schieben 

{ C für Multiplikation) 


C.A 

CSP) .HL 
A. CHL) 

CHL) . A 
CSP) .HL 
NC . 1516H 
HL 

HL . C40AAH) 

HL. DE 
DE. HL 


{Zähler retten. Zeiger zurück 
••Nächstes Bit des Multiplikators 
{ins CY-Flag schieben 
{Nächstes Bit « 1 7 
.‘Zeiger retten. Zähler zurück 
{Nein: weiter bei 1516H 
:3a: Zähler retten 
: HL - lSBs der letzten Zufalls- 
: zahl 

:Zum Ergebnis addieren 
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1510 

1513 

1514 

1515 

1516 


89 

4F 

El 

20 


LD A.(40ACH) 

ADC A.C 

LD C.A 

POP HL 

DEC L 


1517 C2FC14 
1 5 1 A E3 
1 51B 23 


OP NZ.14FCH 

EX (SP). HL 

INC HL 


1 5 IC E3 
151D 25 


EX (SP). HL 

DEC H 


151E C2FA14 

1521 El 

1522 2165B0 

1525 19 

1526 22AA40 
1529 CDEFOA 
152C 3E05 
152E 89 

1 52F 32AC40 
1532 EB 


OP NZ.14FAH 

POP HL 

LD HL.0BO65H 

ADD HL. DE 

LD (40AAH).HL 

CALL OAEFH 

LD A.05H 

ADC A.C 

LD ( 40 ACH ) , A 

EX DE. HL 


1533 0680 
1535 212541 
1538 70 


LD B.80H 

LD HL.4125H 

LD (HL) .B 


1539 2B 
1 53A 70 
153B 4F 
153C 0600 
153E C 36507 


DEC HL 

LD (HL).B 

LD C.A 

LD B.OOH 

OP 0765H 


X - COS ( X ) - SIN 
PI * Kreiszahl (3.1' 

1541 218B15 
1544 CD0B07 


( X + PI/2 ) 

■ 1 59 ) 

LD HL.158BH 

CALL 070BH 


; A = MSB der letzten Zufallszahl 
:Zum Ergebnis addieren 

: Zäh l er zurück 

.•Bitzahler -l 

; 8 Bits verarbeitet 7 

:Nein: nächstes Bit 

:0a: Zähler retten. Zeiger zurück 

;Zeiger + l (nächstes Byte des 

:Mul t ipl ikators verarbeiten) 

:Zeiger retten. Zähler zurück 

: Bytezäh l er -1 

;3 Bytes verarbeitet ? 

:Nein: nächstes Byte 
:Zeiger vom Stack löschen 
: und 05B065H (« 0.022228) 

:zur Mantisse addieren 
:Neue Zufallszahl abspeichern 
: VT auf SNG-Format setzen 
:MSB verrechnen 

:und abspeichern 

:CDE = Mantisse der neuen 

:Zufal Iszahl 

:Exp auf 80H setzen 

: HL : Signflag 

; Sign f l ag = 80H 

: ( Be i SFLOAT eine positive Zahl 
; erzeugen) 

: HL : Exp (X) 

; Exp (X) « 80H (Ergebnis < 1) 

: MSB in BCDE einsetzen 
; LSB von CDEB - OOH 
; CDEB ins SNG-Format umwandeln 
: und in X ablegen (SFLOAT) 


: HL : PI/2 
: X * Arg + PI/2 


SIN C X ) 


1547 CDA409 
154A 014983 
154D 11DB0F 


1550 CDB409 

1553 CI 

1554 Dl 

1555 CDA208 
1558 CDA409 
155B CD400B 
155E CI 
155F Dl 
1560 CD1307 


1563 218F15 
1566 CD 1 007 

1569 CD5509 
156C 37 
156D F27715 

1570 CD0807 
1573 CD5509 

1576 B7 

1577 F5 

1578 F48209 
1 57B 218F15 
1 57E CD0B07 

1581 Fl 

1582 D48209 
1585 219315 
1588 C39A14 


CALL 09A4H 

LD BC.8349H 

LD DE.OFDBH 


CALL 09B4H 

POP BC 

POP DE 

CALL 08A2H 

CALL 09A4H 

CALL 0B40H 

POP BC 

POP DE 

CALL 0713H 


LD HL.158FH 

CALL 071 OH 

CALL 0955H 

SCF 

3P P . 1577H 

CALL 0708H 

CALL 0955H 

OR A 

PUSH AF 

CALL P.0982H 

LD HL.158FH 

CALL 070BH 

POP AF 

CALL NC.0982H 

LD HL.1593H 

3P 149AH 


: (SPD « Arg 

: BCDE - 6.28319 - 2*PI 

;X in den Breich von -1 bis +1 
: skal ieren : 

: X = BCDE = 2*P I 
; BCDE = Arg 

: X « X/BCDE ■ Arg/ ( 2*P 1 1 
: ( SP) » X - Arg/ C 2#PI ) 

: X * INT CX) - INTC Arg/C2*PI) ) 

: BCDE - Arg/C2»PI) 

; X « BCDE - X 

:- Arg/C 2#PI ) - INTC Arg/C 2»PI ) ) 
;CViel fache von 2PI ausblenden) 

; Das Argument (bzw X) liegt jetzt 
; i m Bereich zwischen -1 (ent- 
spricht -2*P I ) und +1 (ent- 
spricht +2*PI) 

; HL : 1/4 

?X * (HL) - X * 1/4 - X 
; TEST2 . X >- 0 ? (Arg > PI/2) ? 

: CY ■ 1 

:3a : weiter bei 1577H 
: Ne i n : X « X + 1/2 
: TEST2 . X >« 0 7 (Arg < PI/2) 7 
:CV - 0 (für 1582H) 

:Flags retten 
:3a: X » -X 
:HL - 1/4 

:X ■ X + (HL) - X + 1/4 
: Flags zurück 

; X = -X wenn 1/4 - X > 0 war 
: HL * Zeiger auf Koeffizienten 
:Reihel berechnen 


1 58B DB 
1 58C OF 
158D 49 
1 58E 81 


konstante 1.5708 = PI/2 


1 58F 00 

1590 00 

1591 00 

1592 7F 


konstante 0.25 « 1/4 





Koeffiziententabelle für SIN und COS 
' 1 ' bedeutet Fakultät der Zahl 


1593 05 


1594 B (4 

1595 07 

1596 IE 

1597 86 

1598 64 

1599 26 
1598 99 
1 59B 87 

159C 58 
1590 34 
159E 23 
159F 87 

1580 EO 

1581 50 

1582 85 

1583 86 


; 5 Koeffizienten 


.•39.7107 

C ( 2*P I ) hoch 9) / 9 ! 


: -76. 575 

- CC2*PI) hoch 7) / 7' 


: 81 .6022 

:« CC2*Pn hoch 5) / 5! 


-41 .3417 

* - CC2*PI) hoch 3) / 3' 


1584 D8 

1585 OF 

1586 49 

1587 83 


.•6.28319 - 2*PI 

( C 2*P I ) hoch 1) / 1' 
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TAN ( X ) 


SIN (X) / COS (X) 


15A8 CDA409 
15AB CD4715 
15AE CI 
15AF Ei 
15BO CDA409 
15B3 EB 
15B4 CDB409 
15B7 CD4115 
15BA C3A008 


CALL 09A4H 

CALL 1547H 

POP BC 

POP HL 

CALL 09A4H 

EX DE. HL 

CALL 09B4H 

CALL 1541H 

3P 08A0H 


(SP) - Arg 
X - SIN C Arg D 
BCHL « Arg 

(SP) « X « SIN ( Ar g 3 
BCDE « Arg 
X - BCDE - Arg 
;X - COS (Arg) 

Erg - (SP) / X 
« SIN (Arg) / COS (Arg) 


X 


ATN ( X ) 


15BD CD5509 
15C0 FCE213 
1 5C3 FC8209 

15C6 3A2441 
1 5C9 FE8 1 
15CB 380C 
15CD 010081 
1SD0 51 
15D1 59 
15D2 CDA208 
1 5D5 211007 
1 5D8 E5 
1 5D9 21E315 
15DC CD9A14 
15DF 218fel5 
15E2 C9 


CALL 0955H 

CALL M.13E2H 

CALL M.0982H 

LD A , ( 4 1 24H ) 

CP 8 1H 

3R C.15D9H 

LD BC.8100H 

LD D.C 

LD E.C 

CALL 08A2H 

LD HL.0710H 

PUSH HL 

LD HL.15E3H 

CALL 149AH 

LD HL.158BH 

RET 


TEST2. Argument < 0 7 
3a: Ergebnis nachher negieren 
und mit positivem Argument 
weiterrechnen 
A ■ Exp (Arg) 

Argument < 1 ? 

3a: weiter bei 15D9H 
BCDE - 1.0 


: X - BCDE / X « 1/Arg 
: HL - Adresse für X « (HL) - X 
: Al s RET-Adresse im Stach ablegen 
: HL : Hoef f i 2 ient ent abe l l e 
:Reihel berechnen 
: HL : PI/2 

:Erg » PI/2 - X wenn das 
: Argument > 1 war 
:(Denn die Reihenberechnung 
;stimmt nur für -1 < X < +1) 



: Koeffizienten für ATN 

15E3 09 

15E4 4A 
15E5 D7 
15E6 3B 
15E7 78 

15E8 02 
15E9 6E 
15EB 84 
1 5EB 7B 

15EC FE 
15ED CI 
15EE 2F 
1 5EF 7C 

O 15F0 74 
15F1 31 
15F2 9Pl 
1 5F3 70 

1 5F4 84 
1 5F5 3D 
1 5F6 
1 5F7 7D 

1 5F8 C8 
1 5F9 7F 
15FA 91 
1 5FB 7E 

1 5FC E4 
1 5FD BB 
1 5FE 4C 
15FF 7E 

1600 6C 

1601 AA 

1602 FlB 

1603 7F 


: 9 Koeffizienten 
; 2 . 86623E -3 ca. 1/349 

:-0. 0161657 ca. 1/62 

.•0.0429096 ca 1/23 

: -0.0752896 ca. -1/11 

:0. 106563 ca. 1/9 

.--0.142089 ca. -1/7 

.•0.199936 « 1/5 

:-0. 333331 - -1/3 


1604 00 

1605 00 

1606 00 
1607 81 


1/1 
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Adressentabelle der BASIC-Funkt ionen CToken D7H bis FAH) 


1608 8A 09 
1 60A 37 OB 
1 60C 77 09 
160E D4 27 
1610 EF 2A 
1612 F5 27 
1614 E7 13 
1616 C9 14 
1618 09 08 
161 A 39 14 
161C 41 15 
161E 47 15 
1620 A8 15 
1622 BD 15 
1624 AA 2C 
1626 52 41 
1628 58 41 
162A 5E 41 
162C 61 41 
162E 64 41 
1630 67 41 
1632 6A 41 
1634 6D 41 
1636 70 41 
1638 7F OA 
163A Bl OA 
163C DB OA 
163E 26 OB 
1640 03 2A 
1642 36 28 
1644 C5 2A 
1646 OF 2A 
1648 1F 2A 
1 64A 61 2A 
164C 91 2A 
164E 9A 2A 


SGN 098AH 
INT 0B37H 
ABS 0977H 
FRE 27D4H 
INP 2AEFH 
POS 27F5H 
SQR 13E7H 
RND 14C9H 
LOG 0809H 
EXP 1439H 
COS 1541H 
SIN 1547H 
TAN 1 5A8H 
ATN 15BDH 
PEEK 2CAAH 
CVI 4152H 
CVS 4158H 
CVD 415EH 
EOF 4161H 
LOC 4164H 
LOF 4167H 
MKI* 416AH 
MKSS 416DH 
MKD* 4170H 
CI NT 0A7FH 
CSNG 0AB1H 
CDBL OADBH 
FIX 0B26H 
LEN 2A03H 
STR* 2836H 
VAL 2AC5H 
ASC 2A0FH 
CHR* 2A1FH 
LEFTS 2A61H 
RIGHTS 2A91H 
MID* 2A9AH 


134 



Tabelle der BASIC-Keywords in d « r R « 
Zur Trennung zwischen den Keywords i 
des ersten Zeichens auf 'i' gesetzt. 

1650 C5 4E 44 

1653 C6 4F 52 

1656 02 45 53 45 54 

165B 03 45 54 

165E C3 4C 53 

1661 C3 4D 44 

1664 D2 41 4E 44 4F 4D 

166A CE 45 58 54 

166E C4 41 54 41 

1 672 C 9 4E 50 55 54 

1677 C4 49 40 

167A 02 45 41 44 

167E CC 45 54 

1681 C7 4F 54 4F 

1685 02 55 4E 

1688 C9 46 

168A 02 45 53 54 4F 52 45 

1691 C7 4F 53 55 42 

1696 02 45 54 55 52 4E 

169C 02 45 40 

1 69F 03 54 4F 50 

16A3 C5 4C 53 45 

16A7 04 52 4F 4E 

16AB 04 52 4F 46 46 

1 6B0 C 4 45 46 53 54 52 

1 6B6 C4 45 46 49 4E 54 

16BC C 4 45 46 53 4E 47 

16C2 C4 45 46 44 42 4C 

16C8 CC 49 4E 45 

16CC C5 44 49 54 

1600 C5 52 52 4F 52 

1605 02 45 53 55 4D 45 

16DB CF 55 54 

16DE CF 4E 

16E0 CF 50 45 4E 

16E4 C6 49 45 4C 44 

16E9 C7 45 54 

16EC DO 55 54 

16EF C 3 4C 4F 53 45 

16F4 CC 4F 41 44 


ihenfolge ihrer Token-Werte 
st jeweils das höchste Bit 


END 

FOR 

RESET 

SET 

CLS 

CMC 

RANDOM 

NEXT 

DATA 

INPUT 

OIM 

READ 

LET 

SOTO 

RUN 

IF 

RESTORE 

GOSUB 

RETURN 

REM 

STOP 

ELSE 

TRON 

TROFF 

DEFSTR 

DEFINT 

DEFSNG 

DEFDBL 

LINE 

EDIT 

ERROR 

RESUME 

OUT 

ON 

OPEN 

FIELO 

GET 

PUT 

CLOSE 

LOAD 






16F8 CD 45 52 
16FD CE 41 4D 
1701 CB 49 4C 
1705 CC 53 45 
1709 D2 53 45 
170D 03 41 56 
1711 03 59 53 
1717 CC 50 52 
171D C4 45 46 
1720 DO 4F 4B 
1724 DO 52 49 
1729 C3 4F 4E 
172D CC 49 53 
1731 CC 4C 49 
1736 C4 45 4C 
173C CI 55 54 
1740 C3 4C 45 
1745 C3 4C 4F 
174« C 3 53 41 
1 74 F CE 45 57 
1752 D4 41 42 
1756 D4 4F 
1758 C6 4E 
175« D5 53 49 
1 75F D6 41 52 
1765 D5 53 52 
1768 C5 52 4C 
176B C 5 52 52 
176E 03 54 52 
1775 C9 4E 53 
177« C3 48 45 
177F D4 49 40 
1784 CO 45 40 
1787 C9 4E 4B 
1 78D D4 48 45 
1791 CE 4F 54 
1794 03 54 45 

1798 «B 

1799 «D 
179« «« 

179B «F 
1 79C DB 

179D CI 4E 44 


47 45 

45 

4C 

54 

54 

45 

54 45 4D 
49 4E 54 

45 

4E 54 

54 

54 

53 54 
45 54 45 
4F 

41 52 
41 44 
56 45 

28 


4E 47 
50 54 52 


49 4E 47 24 
54 52 

43 4B 
45 24 

45 59 24 
4E 

50 


: MERGE 
: NAME 
; KILL 
: LSET 
: RSET 
: SAVE 
: SYSTEM 
; LPR INT 
: DEF 
: POKE 
: PRINT 
: CONT 
:LIST 
:LLIST 
: DELETE 
: AUTO 
: CLEAR 
:CLO«D 
: CSAVE 
: NEW 
: TAB C 
: TO 
: FN 

: US ING 
: VARPTR 
;USR 
: ERL 
; ERR 

jSTRINGS 
: INSTR 
.•CHECK 
: T I ME 5 
: MEM 
: INKEY* 

; THEN 
: NOT 
: STEP 


; 'Exponent ’ 
AND 
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1700 CF 52 

1702 BE 

1703 BD 

1704 BC 

1705 D3 47 4E 
1708 C9 4E 54 
170B CI 42 53 
1 7 OE C6 52 45 
17B1 C9 4E 50 
17B4 DO 4F 53 
17B7 D3 51 52 
1 7B0 D2 4E 44 
1 7BD CC 4F 47 
17C0 C5 58 50 
17C3 C3 4F 53 
1 7C6 03 48 4E 
17C9 D4 41 4E 
17CC CI 54 4E 
17CF DO 45 45 

^ 1703 C3 56 49 
17D6 C3 56 53 
17D9 C3 56 44 
1 7DC C5 4F 46 
17DF CC 4 F 43 
17E2 CC 4F 46 
1 7E5 CD 4B 49 
1 7E9 CD 4B 53 
17ED CD 4B 44 
17F 1 C3 49 4E 
1 7F5 C3 53 4E 
1 7F9 C3 44 42 
17FD C6 49 58 
1800 CC 45 4E 
1803 03 54 52 
1807 D6 41 4C 
1800 CI 53 43 
1 80D C3 48 52 
1811 CC 45 46 
1816 D2 49 47 
181C CD 49 44 
w 1820 07 
1821 80 


4B 


24 

24 

24 

54 

47 

4C 


24 


24 

54 24 
48 54 24 
24 


OR 


; SGN 
INT 
OBS 
FRE 
I NP 
POS 
SQR 
RND 
LOG 
EXP 
COS 
SIN 
TON 
OTN 
PEEK 
CVI 
CVS 

cvo 

EOF 
LOC 
LOF 
MH I » 

MKS» 

MKD» 

CI NT 

CSNG 

CDBL 

FIX 

LEN 

STR» 

: VOL 
OSC 
: CHR» 

LEFT5 
: R I GHT» 

MID» 

Ende der Tobel le 
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: Adressentabei le der BASIC-Befeh l e (Token von 80H bis BBH ) 


1822 AE ID 
1824 Al IC 
1826 38 01 
1828 35 01 
1 S2A C9 01 
182C 73 41 
182E 03 01 
1830 B6 22 
1832 05 1F 
1834 9A 21 
1836 08 26 
1838 EF 21 
1 83A 21 1F 
1 83C C2 IE 
183E A3 IE 
1840 39 20 
1842 91 10 
1844 Bl IE 
1846 DE IE 
1848 07 1F 
184A A9 ID 
184C 07 1F 
184E F7 ID 
1850 F8 ID 
1852 00 IE 
1854 03 IE 
1856 06 IE 
1858 09 IE 
1 85A A3 41 
185C 60 2E 
195E F4 1F 
1860 AF 1F 
1862 FB 2A 
1864 6C 1F 
1866 79 41 
1868 7C 41 
186A 7F 41 
186C 82 41 
1 86E 85 41 
1870 88 41 
1872 8B 41 
1874 8E 41 
1876 91 41 
1878 97 41 
1 87A 9A 41 
187C AO 41 
1 87E B2 02 
1880 67 20 
1982 5B 41 
1884 Bl 2C 
1886 6F 20 
1338 E4 10 
139A 2E 2B 
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END 1DAEH 
FOR 1CA1H 
RESET 0138H 
SET 0135H 
CLS 01C9H 
CMD 4173H 
RANDOM 01D3H 
NEXT 22B6H 
DATA 1F05H 
INPUT 219AH 
DIM 2608H 
READ 21EFH 
LET 1F21H 
GOTO 1EC2H 
RUN 1EA3H 
IF 2039H 
RESTORE 1D91H 
GOSUB 1EB1H 
RETURN 1EDEH 
REM 1F07H 
STOP 1DA9H 
ELSE 1F07H 
TRON 1DF7H 
TROFF 1DF8H 
DEFSTR 1E00H 
DEFINT 1E03H 
DEFSNG 1E06H 
DEFDBL 1E09H 
LINE 41A3H 
EDIT 2E60H 
ERROR 1FF4H 
RESUME 1FAFH 
OUT 2AFBH 
ON 1F6CH 
OPEN 4179H 
FIELD 417CH 
GET 417FH 
PUT 4182H 
CLOSE 4185H 
LOAD 4188H 
MERGE 418BH 
NAME 418EH 
KILL 4 1 9 1 H 
LSET 4197H 
RSET 419AH 
SAVE 41A0H 
SYSTEM 02B2H 
L PR INT 2C67H 
DEF 4158H 
POKE 2CB1H 
PRINT 206FH 
CONT 1DE4H 
LIST 2B2EH 



kJ 


188C 29 2B 
1 88E C6 2B 
1890 08 20 
1892 Tfl IE 
1894 1F 2C 
1896 F5 2B 
1898 49 1B 


LL IST 2B29H 
DELETE 2BC6H 
AUTO 2008H 
CLEAR 1E7AH 
CLOAD 2C1FH 
CSAVE 2BF5H 
NEW 1B49H 


: Prioritätstabelle für Operatoren 
: Höchster Wert entspricht höchster Priorität 

189A 79 
189B 79 
189C 7C 
1890 7C 
189E 7F 
189F 50 
1 8A0 46 

Adr essent abe l l e für Typumwandl ung 


CDBL 

CINT 

TM-Error wenn Hein 

String in X 

CSNG 


18A1 DB OA 
1 8A3 00 00 
1 8A5 7F OA 
1 8A7 F4 OA 


1 8A9 Bl OA 


OADBH 

OOOOH 

0A7FH 

0AF4H 

0AB1H 


Exponent 
; AND 
OR 


: Adressentabelle für die vier Grundrechenarten und den vergleich 


: 1. Doppelte Genauigkeit 

1 8AB 77 OC 
1 8AD 70 OC 
1 8AF Al OD 
18B1 E5 OD 
1 8B3 78 OA 


0C77H : + tX » X ♦ V) 

; 0C70H : - CX » X - Y) 

ODA 1 H : * CX ■ X * Y) 

: 0DE5H : ✓ (X « X / Y) 

0A78H : Vergleich (CP X . Y) 


: 2. Einfache Genauigkeit 

w 1 8B5 16 07 
18B7 13 07 
18B9 47 08 
18BB A2 08* 

18BD OC OA 


0716H : + (X - BCDE + X) 

0713H : - CX « BCDE - X) 

0847H : * CX ■ BCDE * X) 

08A2H : / CX - BCDE / X) 

OAOCH : Vergleich CCP X . BCDE) 


: 3. 


Integer 


13BF 02 OB 
3C 1 OB 
19C3 e 2 OB 
1SC5 90 24 
13C“ 39 OA 


0BD2H 
: 0BC7H 
0BF2H 
: 2490H 
0A39H 


t CX = OE + HL) 

- CX « DE - HL) 

4 CX = DE * HLC 
/ CX * DE / HL) 
Vergleich CCP HL 


DE) 


— 
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Tabelle der Feh l er me l dünge» 


nach Fehlercodes sortiert 


1 8C9 4E 46 
1 8CB 53 4E 
18CD 52 47 
18CF 4F 44 
18D1 46 43 
1 803 4F 56 
1 805 4F 4D 
18D7 55 4C 
18D9 42 53 
180B 44 44 
1 8DD 2F 30 
1 9DF 49 44 
18E1 54 4D 
18E3 4F 53 
18E5 4C 53 
1 8E7 53 54 
18E9 43 4E 
1 8EB 4E 52 
1 8ED 52 57 
18EF 55 45 
18F1 4D 4F 
1 8F3 46 44 
1 8F5 53 4E 


; NF 
: SN 
:RG 
:0D 
jFC 
;0V 
: OM 
: UL 
; BS 
: 00 
:/0 
; ID 
: TM 
: OS 
sLS 
: ST 
: CN 
: NR 
:RU 
tUE 
: MO 
: FD 
: SN 


Dieser Teil wird von Start 4 ins RRM ab 4080H kopiert 
(Erläuterungen siehe RAM-Listing) 


1 8F7 D600 
1 8F9 6F 
18FR 7C 
1 8FB DEOO 
1 8FD 67 
1 8FE 78 
18FF DEOO 

1901 47 

1902 3E00 

1904 C9 

1905 4A IE 
1907 40 E6 4D 
190R DBOO 
190C C9 

1 90D D300 
190F C9 

1910 00 

1911 00 

1912 00 

1913 00 

1914 291E 

1916 00 

1917 4C 

1918 43 

1919 FEFF 
1 9 1 B 0148 


SUB 00H 

LD L.R 

LD R.H 

SBC R.OOH 

LD H.A 

LD A.B 

SBC A.OOH 

LD B.A 

LD A.OOH 

RET 


IN A.COOHJ 

RET 

OUT ( OOH 1 . A 

RET 


140 



Texte 


1 9 1 C 20 
191E 45 
191F 72 

1920 72 

1921 6F 

1922 72 

1923 00 

1924 20 

1925 69 

1926 6E 

1927 20 

1928 00 

1929 52 
192A 45 
192B 41 
1 92C 44 
192D 59 
192E 0D 
1 92 F 00 


1930 42 

1931 72 

1932 65 

1933 61 

1934 6B 

1935 00 


s* Error' 



UPRO für FOR. NEXT und RETURN 
Holt Daten vom Stack zurück 

I : DE = VARPTR der neuen Schl ei fenvar iabl en wenn eine neue FOR-TO-Schl ei f e 
begonnen wird 

DE ■ VARPTR der bei NEXT angegebenen Variablen 
DE * 0000H wenn bei NEXT keine Variable angegeben wurde 
0: DE = unverändert 

HL * 'Stackzeiger' auf FOR-TO-Stack + 1 (wenn Z - 0) 

HL - 'Stackzeiger' auf FOR-TO-Stack + 3 (wenn Z * 1) 

Z =0 wenn kein FOR-TO-Stack gefunden wurde oder die Variable noch nicht 
in einer Schleife gebraucht wird 

Z =1 wenn der Aufruf von NEXT kam oder die Variable bereits in einer 
Schleife gebraucht wird 


1936 210400 
1939 39 


193A TE 
1 936 23 
193C FE8 1 
1 93E CO 

1 93F 4E 

1940 23 

1941 46 

1942 23 

1943 E5 

1944 69 

1945 60 

1946 TA 

1947 B3 

1948 EB 


1949 2802 
194B EB 
194C DF 

1 94D 010E00 

1950 El 

1951 C8 

1952 09 


LD HL.0004H 

ADD HL. SP 


LD A , ( HL 1 

INC HL 

CP 8 1H 

RET NZ 

LD C.(HL) 

INC HL 

LD B.(HL) 

INC HL 

PUSH HL 

LD L.C 

LD H.B 

LD A.D 

OR E 

EX DE. HL 


OR Z.194DH 

EX DE. HL 

RST 18H 

LD BC.OOOEH 

POP HL 

RET Z 

ADD HL.BC 


3R 193AH 


: HL - SP + 4 

: HL ist jetzt Stackzeiger wie 
:nach zweimaligem POP 
:Markierung vom Stack holen 
: 'Stackzeiger ' +1 
: FOR-Markierung gefunden ? 
:Nein: Fertig 

:3a: FOR-TO-Stack bearbeiten 
;BC mit dem VARPTR der 
:Schlei fenvar iablen laden 


.•'Stackzeiger' retten 
; HL - VARPTR der Schlei fen- 
: variablen 
: Ist DE « OOOOH ? 

:(Kam der Aufruf von NEXT ?} 

; DE * VARPTR der im Stack 
gefundenen (aktiven) 

: Schl ei f envar iabl en 
; HL « VARPTR der neuen 
: Schl ei fenvar iablen 
:3a: Fertig 

:DE und HL vertauschen 
: Be i de VARPTR vergleichen 
:BC « Offset zum nächsten 
; FOR-TO-Stack 
: 'Stackzeiger ' zurück 
: Fertig wenn der gesuchte VARPTR 
; gefunden wurde 
:' Stackzeiger ' zum nächsten 
: FOR-TO-Stack erhöhen. (Es werden 
: pro FOR-TO-Schlei fe 17 Bytes im 
:Stack benötigt. HL wurde bereits 
: in 193BH. 1940H und 1942H um 3 

: erhöht plus OEH (14) macht 17) 
:Weiter im Stack suchen 
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Programmtext Verschiebung zum Einfügen einer neuen Zeile 
Kopiert Speicher von (BC) nach (HL) bis BC » DE ist 
I: BC * Zeiger auf altes Programmende (vor Verschiebung) 
DE ■ ZP auf neue Zeile 

HL ■ Zeiger auf neues Programmende (nach Verschiebung) 
C: DE ■ ZP auf neue Zeile 
HL - DE 


1955 CD6C19 

1958 C5 

1959 E3 
195A CI 
195B DF 
1 95C 7E 
195D 02 
195E C8 
1 95F OB 

1960 2B 

1961 1 8F8 


CALL 196CH 

PUSH BC 

EX (SP). HL 

POP BC 

RST 18H 

LD A.(HL) 

LD (BC).A 

RET Z 

DEC BC 

DEC HL 

DR 195BH 


: Ist noch Platz im Speicher ? 
:BC und HL vertauschen 
: (wegen RST 18H) 

:An neuer Zeile angenommen 
:Zeichen vom alten Platz 
:zum neuen Platz Kopieren 
:3a: Fertig 
:Zeiger -1 

:Nächstes Zeichen Kopieren 


: Prüfung ob noch Platz im Speicher ist 

: Ofl-Error wenn weniger als 2 * C Bytes noch vorhanden sind 
: I: C * Anzahl der benötigten Bytes 


1963 E5 

1964 2AFD40 

1967 0600 
1969 09 
1 96A 09 
1 96B 3EE5 


PUSH 

LD 

LD 

ADD 

ADD 

LD 


HL 

HL. (40FDH) 

B.OOH 
HL . BC 
HL.BC 
A.0E5H 


: PTZ retten 

: HL ■ Zeiger auf Beginn des 
: freien Speichers 

:BC = Anzahl der benötigten Bytes 
;HL ■ HL + 2*BC 


: Ist ab HL noch genügend Platz im Speicher * 
: I : HL * Zeiger auf freien Speicherplatz 


* 1 96C E5 


i960 3EC6 
1 96 F 95 
^ 1970 6F 
1971 3EFF 

1973 9C 

1974 3804 

1976 67 

1977 39 

1978 El 

1979 D8 


: OM-Error 


PUSH HL 


LD A.0C6H 

SUB L 

LD L.A 

LD A.OFFH 

SBC A.H 

3R C.197AH 

LD H . A 

ADD HL. SP 

POP HL 

RET C 


: HL retten 

; HL zeigt jetzt auf den neuen 
:Anfang des freien Speichers 
:HL * FFC6H - HL 


; OM-Error wenn HL > FF6CH 
:MSB nach H zurücK 
: HL • SP + ( FFC6H - HL) 

: HL zurücK 

: RET wenn Platz bis zum StacK 
:sonst Ofl-Error 


197A 1E0C 
197C 1924 


LD E.OCH 

3R 19A2H 


: E » Fehlercode 
:Zur Fenlerrout ine 





Beendigung eines Programms ohne 'END 


AND 

INC 


1 97E 2AA240 

1981 7C 

1982 A5 

1983 3C 

1984 2808 

1986 3AF240 
1989 B7 
198A 1E22 
198C 2014 
198E C3C11D 


SN-Error in einer DATA-Zeile 


1991 2ADA40 
1994 22A240 


HL . C40A2H) 
A.H 


E.22H 
NZ. 19A2H 
IDC1H 


HL. C40DAH) 
(40A2H) .HL 


: Hu ■ Akt ue l le ZN 

.•Wurde ein Programm beendet 

{CIst die ZN <> 65535 ?) 

: Ne i n : Über 198EH nach END 
; springen 

: 0N ERROR GOTO- F l ag gesetzt 

;E ■ Fehlercode für NR-Error 
;NR-Error wenn Flag gesetzt 
sSonst nach END springen 


: HL - DATA-ZN 

.•Als aktuelle ZN ab- 

: speichern 


1997 1E02 
1999 0UE14 


E.02H 
BC . 1 4 1 EH 


;E ■ Fehlercode 


* 1 99A 1 E 1 4 

199C 011E00 


LD 

LD 


E . 14H 
BC.001EH 


:E * Fehlercode 


*1990 1E00 

199F 0UE24 


E . 00H 
BC . 24 1 EH 


; E « Fehlercode 


RW-Error 
* 1 9A0 1E24 


Fehlercode 


Fehl er rout ine . 

Zeigt Fehlercode und Zeilennummer an und bricht Programm ab. 

Is E - (Fehlercode - 1) * 2 

0: - (Rückkehr ins Basic oder zum Fehlerbehandlungsprogramm wenn 
ON ERROR GOTO aktiv war.) 


19A2 2AA240 
1 9A5 22EA40 
!9Ae 22EC40 
1 9AB 01B419 
1 9AE 2AE840 
19B1 C39A1B 


LD 

LD 

LD 

LD 

LD 

DP 


HL. (40A2H) 
(40EAH) .HL 
( 40ECH ) .HL 
BC . 19B4H 
HL. (40E8H) 
1B9AH 


: Aktuel le ZN 
: a l s ERL 

: und abspeichern 

: BC « RET-Adr 
: HL « Letzter SP-Stand 
:Stack neu initialisieren 



w 


19B4 CI 
19B5 7B 
1 9B6 4B 
19B7 329A40 
19BA 2AE640 
19BD 22EE40 
1 9C0 EB 
19C1 2AEA40 
19C4 7C 
1 9C5 A5 
19C6 3C 
19C7 2807 


19C9 
1 9CC 
19CD 
19D0 
19D3 
19D4 
w 19D5 
1906 
1 909 
1 9DB 
1 9DC 
1 9DE 
19DF 
1 9E0 


22F740 

2AF040 


21F240 

2808 


POP 

LD 

LD 

LD 

LD 

LD 

EX 

LD 

LD 

AND 

INC 

DR 

LD 

EX 

LD 

LD 

LD 

OR 

EX 

LD 

DR 

AND 

DR 

DEC 

EX 

DP 


BC 


C409AH) .A 
HL. C40E6H) 
C40EEH) .HL 
DE. HL 

HL. (40EAH) 
A.H 
L 
A 

2. 19D0H 

(40F5H) .HL 
DE. HL 

(40F7H) .HL 
HL. C40F0H) 
A.H 
L 

DE. HL 
HL.40F2H 
Z. 19E3H 
(HL) 

NZ. 19E3H 
(HL) 

DE. HL 
1D36H 


:Stack korrigieren 
; A * Fehlercode 
:C = Fehlercode 

iFehlercode als ERR abspeichern 
: HL ■ PTZ vor dem Fehler 
: PTZ für RESUME retten 
: DE - PTZ 
: HL - ZN 
: Ist die ZN 

: g l eich FFFFH (65535) ? 

; Da : Fehler in der aktiven 
: Bef eh l sebene . Weiter bei 19D0H 
.•Nein: ZN für CONT retten 
: HL « PTZ 

: PTZ für CONT retten 
: HL * ZN von ON ERROR GOTO 
: war ON ERROR GOTO aktiv 7 
: C ZN < > 0 ) 

; DE - ZN 

: HL : ON ERROR GOTO- Flag 

:Nein: weiter bei 19E3H 

:Flag gesetzt 7 

:Nein: weiter bei 19E3H 

; Fl ag -1 (als Zähler für RESUME) 

: HL - PTZ der ON ERROR GOTO-Zeile 
:Programm bei (HL) fortsetzen 


; Fehler anzeigen 

1 9E3 AF 
19E4 77 
19E5 59 
19E6 CDF920 
19E9 21C918 
19EC CDA641 
19EF 57 
19F0 3E3F 
1 9F2 CD2A03 
1 9F5 19 
^ 1 9F6 7E 

19F7 CD2A03 
1 9FA D7 
1 9FB CD2A03 
19FE 211D19 
1A01 E5 
1 A02 2AEA40 
1A05 E3 


XOR 

LD 

LD 

CALL 

LD 

CALL 

LD 

LD 

CALL 

ADD 

LD 

CALL 

RST 

CALL 

LD 

PUSH 

LD 

EX 


A 

(HL) .A 

E.C 

20F9H 

HL . 18C9H 

41A6H 

D.A 

A.3FH 

032AH 

HL. DE 

A. (HL) 

032AH 

10H 

032AH 

HL. 191DH 

HL 

HL . (40EAH) 
(SP) .HL 


: ON ERROR GOTO-Fl ag löschen 

:E » Fehlercode 

:Neue Zeile beginnen 

;HL = Zeiger auf Fehlercodes 

; DOS 

: DE ■ Offset für Feh l er t abe l l e 
; ' ?' ausgeben 

:HL * Zeiger auf Fehlercode 

: Beide Zeichen ausgeben 

; 1 . Zeichen 

: A * 2. Zeichen 

;2- Zeichen ausgeben 

:HL : Text ' Error' 

: HL retten 
: HL « ERL 

: ERL retten und Textzeiger zurück 



Einsprung von STOP (siehe 1DDEHD 


1A06 CD7935 
1A09 El 
1AOA 11FEFF 


1AOD DF 
1AOE CA7406 
IAH 7C 
1 Al 2 A5 
1 A13 3C 
1A14 C4A70F 
1A17 3EC1 
* 1 A 1 8 CI 

Einsprung zum akt i 

1A19 CD8B03 

1 A1C CDAC41 
1A1F 00 
1 A20 00 
1A21 00 
1 A22 CDF920 
1 A25 212919 
1 A28 C 09238 

1A2B 3A9A40 
1 A2E 0602 
1 A30 CC532E 
1 A33 21FFFF 
1 A36 22A240 
1 A39 3AE140 
1 A3C B7 
1 A3D 2837 


AUTO bearbeiten 

1 A3F 2AE240 
1A42 E5 
1A43 CDAFOF 
1 A46 Dl 
1 A47 D5 
1A48 C02C1B 
1A4B 3E2A 
1A4D 3802 
1 A4F 3E20 
1A51 CD2A03 
1A54 CD6103 


CALL 3579H 

POP HL 

LD DE. OFFFEH 


RST 18H 

OP Z.0674H 

LD A.H 

AND L 

INC A 

CALL NZ.0FA7H 

LD A.0C1H 

POP BC 

Bef ehlsmodus 

CALL 038BH 

CALL 4 1 ACH 

NOP 

NOP 

NOP 

CALL 20F9H 

LD HL.1929H 

CALL 3892H 

LD A.C409AH) 

SUB 02H 

CALL Z.2E53H 

LD HL.OFFFFH 

LD (40A2H1.HL 

LD A.C40E1H) 

OR A 

OR Z.1A76H 


LD HL.C40E2H) 

PUSH HL 

CALL OFAFH 

POP DE 

PUSH DE 

CALL 1B2CH 

LD A.2AH 

OR C.1A51H 

LD A.20H 

CALL 032AH 

CALL 036 1H 


:Text und Ton ausgeben 
: ERL zurück 

:Kommt der Fehler von der 
:MEM SIZE-Frage 7 
jCIst ERL - 65534 7) 

; HL und DE vergleichen 
:0a: Zurück zu Start 1 
:War der Fehler im Programm ? 
:(Ist ERL <> 65535 7) 

:0a: ’in' und ZN ausgeben 

••Zurück ins BASIC 


Druckerausgabe beenden, nächste 

Ausgabe auf Bildschirm 

DOS 


:Bi l dschi rmausgabe abschlie(Jen 

:HL : Text ’ READY’ 

sCRTC initialisieren CLGR) und 

sText ausgeben 

:A * Letzter Fehlercode 

: Mar es ein SN-Error 7 

:0a: Nach EDIT springen 

.•Aktuelle ZN auf 65535 setzen 

:AUTO aktiv ? 

:Nein: Zur normalen Befehls- 
seingabe springen 


: HL « AUTO-ZN 

:ZN retten 

;ZN ausgeben 

;ZN zurück nach DE 

:ZN wieder retten 

:ZN suchen, schon vorhanden 7 

: A * ' * ’ 

;0a: ’*’ ausgeben 

:Nein: ’ ’ ausgeben 

:Zeichen ausgeben 
:Zei leneingabe 



1 A57 Dl 
1A58 3006 

1A5A AF 
1A5B 32E140 
1A5E 1 889 


POP 

DR 

XOR 

LD 

DR 


DE 

NC. 1R60H 
A 

C40E1H) . R 
1R19H 


: ZN zurück 

; Zeile übernehmen wenn nicht 
.-BREAK gedrückt wurde 
; sonst A » OOH 
.-AUTO abschalten 
:Zurück zum aktiven Befehls- 
; modus 


AUTO-Zeile übernehmen 


1 A60 2AE440 LD 

1 A63 19 RDD 

1A64 38F4 DR 

1 A66 D5 PUSH 

1 A67 11F9FF LD 

1 A6A DF RST 

1 A6B Dl POP 

1 A6C 30EC DR 

1 A6E 22E240 LD 

1A71 F6FF OR 

1A73 C3EB2F DP 


HL. (40E4H) 
HL. DE 
C . 1A5AH 

DE 

DE , 0FFF9H 

18H 

DE 

NC . 1A5AH 

C40E2H) .HL 

OFFH 

2FEBH 


: HL * Abstand zur nächsten ZN 
:Nächste AUTO-ZN errechnen 
; AUTO abbrechen wenn nächste 
:ZN größer als 65535 wird 
: Detz i ge ZN retten 
: DE « 65530 

:Neue ZN mit 65530 vergleichen 
: Det z i ge ZN zurück 
:AUTO abbrechen wenn nächste 
:ZN größer als 65529 wird 
[Nächste ZN abspeichern 
: A <> 0 setzen 
:Zeile durch EDIT-Routine 
: übernehmen 


Normale Befehls- bzw. Zeileneingabe im aktiven Befehlsmodus 


1 A76 3E3E 
1 A78 CD2A03 
1 A7B CD6103 
1A7E DA331A 


1A81 D7 

1 A82 3C 
1 A83 3D 

1A84 CA331A 

1 A87 F5 
1 A88 CD5A1E 
1 A8B 2B 
1 A8C 7E 
1 A8D FE20 
1A8F 28FA 
1A91 23 

1A92 7E 
1A93 FE 20 
1 A95 CCC909 


LD A.3EH 

CALL 032AH 

CALL 036 1H 

DP C.1A33H 


RST 10H 

INC A 

DEC A 

DP Z.1A33H 

PUSH AF 

CALL 1E5AH 

DEC HL 

LD A.CHL) 

CP 20H 

DR Z.1A8BH 

INC HL 

LD A.CHL) 

CP 20H 

CAL- Z.09C9H 


; A * * >' 

[Zeichen ausgeben 
:Zei l eneingabe 

:Zurück zum aktiven Befehls- 
: modus wenn BREAK gedrückt 
; wurde 

;A » 1. Zeichen der eingegebenen 

.-Zeile 

; A » OOH ? 

:CKein OR A damit CY nicht 
:beeinflusst wird) 

:Zurück zum aktiven Befehlsmodus 
:wenn nichts eingegeben wurde 
[Flags retten 
:Nummer decodieren 
:HL auf letzte Ziffer zurück 
: C Es werden alle der Zeilen- 
inummer folgenden Leerzeichen 
:mit übernommen) 

:HL zeigt auf erstes Zeichen der 
:Zeile 

:Ist das erste Zeichen 
;ein Leer-eichen * 

: Oa i hl -1 (Das erste Leerzeichen 
;wird nicht mix übernommen, da 
[LIST ein Leerzeichen nach der 
[Zeilennummer automatisch setzt) 



1998 05 

1999 CDC01B 
199C Dl 
199D Fl 
199E 22E640 
1991 CDB241 
1994 D2591D 


PUSH DE 

C9LL 1BC0H 

POP DE 

POP 9F 

LD (40E6H5.HL 

C9LL 41B2H 

DP NC.1D59H 


Zeile ins Programm übernehmen 


1997 D5 

1998 C5 

1999 9F 
1999 32DD40 
1 99D D7 

1 99E B7 


PUSH DE 

PUSH BC 

XOR 9 

LD C 40DDH ) , 9 

RST 10H . 

OR 9 


1 99 F F5 
1 9B0 EB 
19B1 22EC40 
1 9B4 EB 
1 9B5 CD2C1B 


PUSH 9F 

EX DE. HL 

LD C40ECH1.HL 

EX DE. HL 

C9LL 1B2CH 


19B8 C5 
1 9B9 DCE42B 
19BC Dl 
I960 Fl 


PUSH BC 

C9LL C.2BE4H 

POP DE 

POP 9F 


1 9BE D5 PUSH DE 

1 9BF 2827 DR Z.19E8H 


19C 1 Dl 
19C2 29F940 
19C5 E3 
1 9C6 CI 
19C7 09 
19C8 E5 
1 9C9 CD5519 
1 9CC El 
19CD 22F940 
19D0 EB 
19D1 74 
1 9D2 Dl 

1903 E5 

1904 23 
19D5 23 
1906 "3 
19D7 23 
1 9D8 72 
19C9 23 


POP DE 

LD HL.C40F9H) 

EX (SP). HL 

POP BC 

9DD HL . BC 

PUSH HL 

C9LL 1955H 

POP HL 

LD (40F9H5.HL 

EX DE. HL 

LD (HL).H 

POP DE 

PUSH HL 

INC HL 

•NC HL 

LD C HL ) . E 

INC HL 

LD CHLI.D 

INC HL 


:ZN retten 

:Zwischencode erzeugen 
:ZN zurück 
: Flags zurück 

; HL als aktuellen PTZ abspeichern 
: DOS 

;Zeile direkt ausführen, wenn 
: keine ZN angegeben wurde 


:ZN retten 
;Zeilenlänge retten 
: 9 « OOH 

: STOP-Fl ag löschen 

:9 * 1. Zeichen des Zwischencodes 

: 9 » OOH 7 

: (Wurde nur eine Zeilennummer und 

.•kein Befehlstext angegeben ?) 

:Flags retten 

: Zeiger retten 

;ZN als ’.'-ZN abspeichern 

:Zeiger zurück 

:Ist die ZN schon im Programm 
: vorhanden *> 

:ZP retten 

: Da : Zeile löschen 

:ZP zurück nach DE 

: Flags zurück 

;Z * 1 ? (siehe 199EH) 

: ZP retten 

: Da : Die Zeile sollte nur ge- 
löscht werden. Detzt müssen nur 
:noch die ZPs im Programm 
:erneuert werden 
:ZP zurück 
:HL : Programmende 
; HL « Zeilenlänge 
;BC : Programmende 
: HL : Neues Programmende 
: HL retten 

;Platz für neue Zeile schaffen 
:Zeiger auf neues Programmende 
.•zurück und abspeichern 
:HL « neuer ZP 

: ZP auf nächste Zeile <> 0 setzen 
:ZN zurück 
: ZP retten 
: ZP + 2 

: Neue ZN ins = ’'ogramm setzen 
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1ADA EB 

1ADB 2AA740 
1 ADE EB 

1A0F 1B 
1AEO 1B 
1 BE 1 1 A 
1AE2 77 
1AE3 23 
1AE4 13 
1AE5 B7 
1AE6 20F9 
1AE8 Dl 


EX 

LD 

EX 

OEC 

DEC 

LD 

LD 

INC 

INC 

OR 

3R 

POP 


DE .HL 

HL. (40A7H) 
DE .HL 


A . ( DE ) 
(HL) . A 


NZ. 1 AE 1 H 
DE 


DE = Zeiger auf freien Platz Tür 
:den Zeilentext 

: HL * Zeiger auf Zeilenbuffer 
: HL * Zeiger auf Programm 
:DE = Zeiger auf neue Zeile +2 
; DE -2 

:Zeichen vom Buffer 
:ins Programm übertragen 
; Ze i ger +1 

:Zeilenende erreicht ? 

;Nein: Weitermachen 

;3a: ZP der neuen Zeile nach DE 


1 AE9 CDFC1A 

1 AEC CDB541 
1AEF CD5D1B 
1 AF2 CDB841 
1 AF5 C3331A 


CALL 1AFCH 

CALL 41B5H 
CALL 1B5DH 
CALL 41B8H 
3P 1A33H 


: Ab DE alle ZPs im Programm 
:erneuern 
: DOS 
: CLEAR 
: DOS 

.•Zurück zum aktiven Befehls- 
: modus 


Alle ZPs im Programm erneuern 

1 AF8 2AA440 LD HL . C 40A4H ) 

1 AFB EB EX DE. HL 


: HL = Anfang des Programms 
: DE * Anfang des Programms 


Alle ZPs ab DE im Programm erneuern 


1 AFC 62 
1 AFD 6B 
1 AFE 7E 
1 AFF 23 
1BOO B6 
1901 C8 
1B02 23 
1B03 23 
1 B04 23 
1B05 AF 
1 B06 BE 
1B07 23 
1 B08 20FC 
1 BOA EB 
1 BOB 73 
1 BOC 23 
1 öCD 72 
1 BOE 1 SEC 


LD H.D 

LD L.E 

LD A.(HL) 

INC HL 

OR (HL) 

RET Z 

INC HL 

INC HL 

INC HL 

XOR A 

CP (HL) 

INC HL 

3R NZ.1B06H 

EX DE. HL 

LD (HL).E 

INC HL 

LD CHLJ.D 

3R 1AFCH 


: HL - ZP 

:ZP zur nächsten Zeile * 0 9 

: ( Programmende erreicht ?) 

:3a: Fertig 

:Nein: HL auf Zeilentext erhöhen 


: A - 00H 

:00H (Ende der Zeile) suchen 
: Zeiger +1 
: Weitersuchen 

:DE * ZP auf nächste Zeile 

:ZP auf nächste Zeile in aktuelle 

:Zeile setzen 

:Nachste Zeile bearbeiten 



Zeilennummern bei LIST und DELETE decodieren 

(LIST. . LIST AH. LIST AA-EE. LIST AA- . LIST -EE etc.) 

I : HL ■ PTZ auf Zeichen nach Befehl C Zei l ennummer im ASC I I -Format ) 
0: BC = Zeiger auf die erste Zeile CAA im Beispiel) 

DE - Anfangs-ZN CAA im Beispiel) CDefault ■ 0) 

HL = Zeiger auf die nächste Zeile (nach AA) 

CSP) = End-ZN CEE im Beispiel) CDefault - 65529) 


1B 10 110000 
1 B 1 3 D5 
1B14 2809 

1B16 Dl 
1B17 CD4F1E 
1B1A D5 

1B1B 280B 

1B1D CF 
1B1E CE 
1B1F UFAFF 
1B22 C44F1E 
1B25 C29719 
1B28 EB 
1B29 Dl 
1B2A E3 
1B2B E5 


LD DE.OOOOH 

PUSH DE 

3R Z.1B1FH 

POP DE 

CALL 1E4FH 

PUSH DE - 

3R Z.1B28H 

RST 08H 

DEFB ' - * -Tohen 

LD DE.OFFFAH 

3P Z.1E4FH 

DP NZ.1997H 

EX DE. HL 

POP DE 

EX CSP). HL 

PUSH HL 


:Def aul t Anfangs-ZN « 0 

:Anfangs-ZN retten 

:weiter bei 1B1FH wenn Heine ZNs 

: angegeben wurden 

: Anfangs-ZN aus Stach löschen 

:Anfangs-ZN decodieren 

:Anfangs-ZN retten 

:( = 0 wenn angegeben) 

zweiter bei 1B28H wenn nur eine 

;ZN angegeben wurde 

: ' - * vorhanden ? 

: De fau 1 1 End-ZN - 65529 
:End-ZN decodieren 
:SN-Error ? 

: HL * End-ZN 

:DE = Anfangs-ZN 

: End-ZN retten 

: RET-Adr . zurück ins Stack 


Suche Zeilennummer DE im Programm 

I : DE * Zeilennummer der gesuchten Zeile 

0: BC ■ Zeiger auf die gesuchte Zeile (falls gefunden) 

oder Zeiger auf das Programmende (falls nicht gefunden) 
DE * Zeilennummer 

HL ■ Zeiger auf die nächste Zeile 
Z « 1 und CV ■ 1 bei er fol greicher Suche 

Z « 1 und CV * 0 : BC zeigt auf Programmende 

Z « 0 und CY « 0 ! BC zeigt auf die größte Zeile mit 

einer ZN < der gesuchten ZN 


1B2C 2AA440 


1 B2F 44 
1B30 4D 
1B31 7E 
1B32 23 
1B33 B6 
1 B34 2B 
1 B35 C8 
1B36 23 
1 B37 23 
1B38 7E 
1 B39 23 
1B3A 66 
1B3B 6F 
1 B3C DF 


LD 

LD 

LD 

LD 

INC 

OR 

DEC 

RET 

INC 

INC 

LD 

INC 

LD 

LD 

RST 


HL. C40A4H) 

B. H 

C. L 

A. (HL) 

HL 

(HL) 

HL 

Z 

HL 

HL 

A. (HL) 

HL 

H. (HL) 

L.A 

18H 


: HL « Zeiger auf erste Programm- 
: zei l e 
; BC * ZP 

:ZP auf nächsten Zeile * 0 


:INC HL wieder aufheben 
:3a: Fertig 
: HL auf ZN erhöhen 

: HL * Zeilennummer 


:Gefundene ZN mit gesuchter 
: ZN vergleichen 
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sj 


1B3D 60 
1B3E 69 
1B3F 7E 
1B40 23 
1B41 66 
1B42 6F 
1B43 3F 

1B44 C8 
1B45 3F 
1B46 DO 

1B47 18E6 

: NEU 


1B49 
1B4A 
1B4D 
1 B50 
1B53 
1B56 
1 B57 
1B58 
1B59 
1B5A 


CO 

CDC901 

2AA440 

CDF81D 

32E140 

77 

23 

77 

23 

22F940 


LD H.B 

LD L.C 

LD A.CHL) 

INC HL 

LD H.CHL) 

LD L.A 

CCF 

RET 2 

CCF 

RET NC 

3R 1B2FH 


:ZP zurück nach HL 
: HL * Zeiger auf nächste Zeile 


:CY * 1 bei er fol greichem 
:Vergleich 

: Fertig wenn Zeile gefunden 
: CCF wieder zurücknehmen 
; RET wenn gefundene ZN größer als 
:die gesuchte ZN ist 
:Nächste Zeile überprüfen 


RET 

CftLL 

LD 

CRLL 

LD 

LD 

INC 

LD 

INC 

LD 


NZ 

01C9H 

HL. C40A4H) 
1DF8H 
C40E1H) , A 
CHL) .A 
HL 

CHL) . A 
HL 

C40F9H) .HL 


;SN-Error ? 

:CLS 

; HL * Zeiger auf Programmstart 
; TROFF 

.-AUTO abschalten 
:ZP zur zweiten Zeile 
:auf 0 setzen 


; Programmende » Progr ammst ar t + 2 


; Einsprung für 

1B5D 2AA440 
1 B60 2B 


RUN ohne Zeilennummer (RET auf Programmschleife) 

LD HL.C40A4H) : HL « Programmstart 

DEC HL ; HL -1 


: CLEAR ohne Argument 

1B61 22DF40 

1B64 061 A 
1B66 210141 
1B69 3604 
1B6B 23 
1B6C 10FB 
1B6E AF 
1 B6F 32F240 
1B72 6F 
1B73 67 
1 B74 22F040 
1B77 22F740 
1 B7A 2AB140 
1B7D 22D640 


LD C 40DFH ) . HL 

LD B.1AH 

LD HL.4101H 

LD CHD.04H 

INC HL 

D3NZ 1B69H 

XOR A 

LD C 40F2H ) , A 

LD L. A 

LD H.A 

LD C 40F0H ) . HL 

LD C 40F7H ) . HL 

LD HL.C40B1H) 

LD C 40D6H ) . HL 


: PTZ zum ersten bzw nächsten 
:Befehl abspeichern 
: DEFSNG A-Z CB * 26) 

: HL « Zeiger auf DEF-Tabelle 
:Typcode in Tabelle setzen 
: Zeiger +1 

:Nächster 'Buchstabe' 

: A * 0 

;0N ERROR GOTO-Flag löschen 
; HL - OOOOH 

:0N ERROR GOTO-ZN « 0 
: CONT-PTZ * 0 
: HL - TOPMEM 

:Adresse des letzten Strings im 
.•Stringspeichers = TOPNEM 
:CAlle Strings löschen) 
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1 B80 CD911D 
1 B83 28F940 
1B86 22FB40 
1B89 22FD40 

1 B8C C0BB41 
1 B8F CI 
1 B90 2B8040 
1B93 2B 
1B94 2B 
1B95 22E840 
1 B98 23 
1B99 23 
1B98 F9 
1 B9B 21B540 
1 B9E 22B340 
1B81 CD8B03 
1884 CD6921 
1B87 BF 
1B88 67 
1BB9 6F 
1B88 32DC40 
1B80 E5 
1BBE C5 
1B8F 2BDF40 

1BB2 C9 

UPRO für INPUT 
Busgabe von "» ' und 

1BB3 3E3F 
1BB5 CD2B03 
1 BB8 3E20 
1BBB CD2B03 
1BBO C36103 


CBLL 1D91H 

LD HL.C40F9H) 

LD ( 40FBH ) , HL 

LD ( 40FDH ) . HL 

CBLL 41BBH 

POP BC 

LD HL.C40B0H) 

DEC HL 

DEC HL 

LD C40E8H5.HL 

INC HL 

INC HL 

LD SP. HL 

LD HL.40B5H 

LD C 40B3H ) , HL 

CBLL 038BH 

CBLL 2169H 

XOR B 

LD H .8 

LD L.B 

LD ( 40DCH ) . B 

PUSH HL 

PUSH BC 

LD HL.C40DFHD 

RET 


si leneingabe 

LD B.3FH 
CBLL 032BH 
LD B.20H 
CBLL 032BH 
3P 036 1H 


: RESTORE 

: HL = Zeiger auf Programmende 
:Ende der Variablentabellen 
:gleich dem Programmende setzen 
;-> alle Variablen löschen 
; DOS 

: BC - RET-Bdr 

: HL * Beginn des Stringspeichers 
:HL -2 

: Programmstack neu setzen 


:SP ■ Beginn des Stringspeichers 
:Str ingtabel le zurücksetzen 

:Orucherausgabe abschließen 
.•Nächste Busgabe auf Bildschirm 
: B « OOH 
: HL - OOOOH 

: Feldvariabl en freigeben 
:StacHende durch OOOOH markieren 
:RET-8dr zurück ins Stack 
; HL * PTZ auf ersten bzw nächsten 
: Befehl 


: B - *?' 

:Zeichen ausgeben 
: B * ’ ’ 

: Zeichen ausgeben 
; Zur Zeileneingabe springen 



UPRO für den aktiven Befehlsmodus 

Programmtext im Zeilenbuffer in Zwischencode umwandeln 
Textzeiger * Zeiger auf eingegebenen Text 
Bufferzeiger = Zeiger auf codierten Text 

I: HL ■ Textzeiger 

0: BC * Rnzahl der im Programmspeicher benötigten Bytes C Zei l en l ange) 
DE ■ Zeiger auf das Ende des codierten Textes 
HL » Zeiger auf den Anfang des codierten Textes - 1 


1BC0 AF 
1 BC 1 32B040 
1BC4 4F 
1BC5 EB 
1BC6 2AA740 
1BC9 2B 
1 BCA 2B 
1BCB EB 

O 1BCC TE 
1BCD FE20 
1 BC F CA5B1C 
1BD2 47 
1BD3 FE22 
1BD5 CA771C 


1BD8 B7 
1 BD9 CA7D1C 
1BDC 3AB040 
1BDF B7 
1 BEO 7E 
1 BE 1 C25B1C 
1BE4 FE3F 
1 BE6 3EB2 
1BE8 CA5B1C 
1BEB 7E 
1BEC FE30 
1BEE 3805 
1BF0 FE3C 


XOR 

LD 

LD 

EX 

LD 

DEC 

DEC 

EX 

LD 

CP 

3P 

LD 

CP 

3P 


OR 

DP 

LD 

OR 

LD 

3P 

CP 

LD 

DP 

LD 

CP 

3R 

CP 


A 

(40B0H) .A 

C.A 

DE. HL 

HL . C40A7H) 

HL 

HL 

DE. HL 

A. (HL) 

20H 

Z . 1C5BH 

B. A 
22H 

Z. 1C77H 


A 

Z. 1C7DH 
A, ( 40B0H ) 
A 

A. (HL) 

NZ. 1C5BH 
3FH 

A.0B2H 
Z. 1C5BH 
A. (HL) 

30H 

C. 1BF5H 
3CH 


; A * 00H 

: Textcodierung freigeben 

: Zähl er = 0 

:DE = Textzeiger 

: HL » Anfang des Zei l enbuf fers 


: DE » Bufferzeiger 
; HL « Textzeiger 
: A = Textzeichen 
.•Zeichen » * ' ? 

:3a: Zeichen abspeichern 
:B « Zeichen 

sAnfang eines Strings (’ " ') *> 

; Da : Alle folgenden Zeichen 
;abspeichern bis zum Ausführungs 
:zeichen (Bis Zeichen = B) 
:Zeilenende erreicht 7 
; 3a : weiter bei 1C7DH 
Codierung freigegeben 

:A = Textzeichen 

.•Nein: Zeichen übernehmen 

:3a: Ist es ein *> 

: A « PRINT-Token 

:3a: PRINT-Token abspeichern 

:A = Textzeichen 

: Ist das Zeichen eine Zahl ? 

:Nein: Zeichen codieren 

:3a: Ist das Zeichen kleiner '<* 


1 BF2 DA5B1C 


C.1C5BH ;3a: Zeichen übernehmen 

:(Die Zeichen *<*. und *>' 

;werden codiert) 



Zeichen bzw Text codieren 


1 BPS D5 
1 BF6 114F16 
1BF9 C 5 
1BF8 013D1C 
1 BFD C5 
1BFE 067F 
1C00 TE 
1C01 FE61 
1C03 3807 
1C05 FE7B 
1C07 3003 
1C09 E65F 

1C0B 77 
1C0C 4E 
1C0D EB 
1C0E 23 
1 COF B6 
1C10 F20E1C 

IC 1 3 04 
IC 14 7E 
IC 15 CDE233 
IC 18 B9 

IC 19 20F3 


1C1B EB 


1C1C E5 
IC 10 13 
IC IE 18 
IC 1 F B7 


1C20 F8391C 
1C23 4F 
1C24 78 
1C25 FE8D 
1 C27 2002 
1C29 07 


IC 28 2B 


PUSH DE 

LD DE.164FH 

PUSH BC 

LD BC.1C3DH 

PUSH BC 

LD B.7FH 

LD 8. (HL) 

CP 61H 

DR C.1C0CH 

CP 7BH 

DR NC . IC OCH 

8ND 5FH 

LD (HL)-. 8 

LD C.CHL) 

EX DE. HL 

INC HL 

OR CHL) 

DP P.1C0EH 

INC B 

LD 8. CHL) 

C8LL 38E2H 

CP C 

DR NZ.1C0EH 


EX DE. HL 


PUSH HL 

INC DE 

LD 8. (DE) 

OR 8 


DP M.1C39H 

LD C . 8 

LD 8 . B 

CP 8DH 

DR NZ.1C2BH 

RST 10H 


DEC HL 


:Buf ferzeiger retten 

:0E * Zeiger auf Keywordt abe l l e 

:Zähler retten 

: RET-Rdr auf 1C3DH setzen 

; B = Tokenzähler 
:8 * Textzeichen 
;l5t das Zeichen < 'a* ? 

:3a: weiter bei 1C0CH 
:Ist das Zeichen > ' z ’ ? 

; Da : weiter bei 1C0CH 
jkleinschr i f t in Groüschrift 
: umwandeln 

:Zeichen wieder ablegen 

;C ■ Textzeichen 

: HL • Tabellenzeiger 

: T abe l lenzeiger + 1 

:Nächstes Keyword erreicht 7 

.•Nein: HL auf nächstes keyword 

: erhöhen 

:Da: Tokenzähler +1 
: 8 * Tabellenzeichen 
:Colour-Basic Befehle abfangen 
.•Textzeichen mit Tabellenzeichen 
: vergleichen 

:Ungleich: Tabellenzeiger zum 

: nächsten Keyword erhöhen und 

;neu vergleichen 

:DE = Tabellenzeiger 

:HL * Bufferzeiger auf erstes 

; Zeichen 

: HL retten 

:Nächstes Zeichen 

:aus Tabelle holen 

:Nächstes Keyword erreicht 7 

: ( War der Vergleich bei allen 

:Zeichen des letzten Keywords 

jerfolgreich ?) 

:Da: Token in B übernehmen 
: Nei n : C « Tabellenzeichen 
;8 = Tokenzähler 
: Be i GOTO-Token ? 

: Nein : weiter bei 1C2BH 
: Da : Textzeiger zum nächsten 
:Zeichen erhöhen (GOTO kann auch 
:GO TO geschrieben werden ') 

: HL -1 wegen HL +1 in RST 10H 
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U 


1C2B 23 
1C2C 7E 
1C2D FE61 
1C2F 3802 
1C3 1 E65F 
1C33 89 

1C34 28E7 
IC 36 El 

1C37 1 303 


INC HL 

LD Pi. (HL) 

CP 6 1H 

3R C.1C33H 

PiND 5FH 

CP C 

3R Z.1C1DH 

POP HL 

3R 1C0CH 


:Textzeiger +1 
;A * nächstes Textzeichen 
:Hleinschr i ft 7 
: Nei n : OK 

:3a: In Groß umwandeln 
:Textzeichen und Tabellenzeichen 
: ident isch ? 

:3a: nächstes Zeichen vergleichen 
:Nein: Textzeiger zurück auf 
;erstes Zechen 
:und mit nächstem Keyword 
: vergleichen 


: Vergleich erfolgreich abgeschlossen 


1C39 48 
1C3R Fl 
1C3B EB 
1C3C C9 


LD C.B _ 

POP AF 

EX DE. HL 

RET 


w 

: Token oder Zeichen abspeichern 


1 C3D EB 
1C3E 79 
1C3F CI 
1C40 Dl 
1C41 EB 


EX DE. HL 

LD A.C 

POP BC 

POP DE 

EX DE. HL 


1C42 FE95 
IC 44 363A 
1C46 2002 
1C48 OC 
IC 49 23 


CP 95H 

LD CHD.3AH 

3R NZ.1C4AH 

INC C 

INC HL 


1C4A FEFB 
1 C4C 200C 
1 C4E 363A 
1C50 23 
1C51 0693 
1C53 70 
IC 54 23 
1C55 EB 
1C56 OC 
1C57 OC 
1C58 181D 


CP OFBH 

3R NZ.1C5AH 

LD CHD.3AH 

INC HL 

LD B.93H 

LD (HL) .B 

INC HL 

EX DE. HL 

INC C 

INC C 

3R 1C77H 


:C * Token 

;Textzeiger vom Stack löschen 
:DE ■ Textzeiger 
: RET nach 1C3DH (siehe 1BFAH) 


: HL » Textzeiger 
;A * Token 

:Zei lenzähler zurück 
: Buf ferzeiger zurück 
:DE * Textzeiger 
:HL « Bufferzeiger 
:ELSE-Token •* 

in Buffer setzen 
:Nein: ' : ’ nicht übernehmen 
: Zäh l er +1 
:Buf Terzeiger +1 
:-> *:* übernommen 
: Apostroph ? (REM) 

:Nein: Token übernehmen 
:3a: in Buffer setzen 

: Buf f erzeiger +1 
:B * REM-Token 

:'REM'-Token in den Buffer setzen 
:Buf ferzeiger +1 
:DE ■ Bufferzeiger 
: Zäh l er + l für * : ' 

: Zäh l er + 1 für ' REM ’ -Token 
:Alle Zeichen bis zum Zeilenende 
:übernehmen (REM-Zeile) 





Token bzw. Zeichen in A übernehmen 


1 C5A EB 

EX 

DE. HL 

DE = Bufferzeiger 

1C5B 23 

INC 

HL 

Textzeiger +1 

1C5C 12 

LD 

C DE ) . A 

Token im Buffer ab legen 

1C5D 13 

INC 

DE 

Bufferzeiger + 1 

1C5E OC 

INC 

C 

Zähler +1 

1C5F D63A 

SUB 

3AH 

's* übernommen ? CSUB '!) 

1061 2804 

OR 

Z. 1C67H 

Oa: Codierung freigeben und 




nächstes Zeichen codieren 

1C63 FE4E 

CP 

4EH 

DATA-Token übernommen 7 




(4EH + 3AH * 88H ) 

1065 2003 

OR 

NZ. 1C6AH 

Neins Flag belassen 

1C67 32B040 

LD 

C40B0H) .A 

Oa: Codierung sperren CA * 4EH) 

1C6A 0659 

SUB 

59H 

REM-Token übernommen 7 (SUB ! !) 

1C6C C2CC1B 

OP 

NZ. 1BCCH 

Nein: nächstes Zeichen codieren 

1C6F 47 

LO 

B.A 

Oa: B - 0 setzen als Vergleichs 




Zeichen 

Alle Zeichen bis zum Ende der 

Zeile oder bis 

Zeichen = B ist. übernehmen 

1C70 7E 

LD 

A. CHL) 

A ■ Textzeichen 

1C71 B7 

OR 

A 

Zeilenende erreicht 

1C72 2809 

OR 

Z . 1C7DH 

Oa: Zeile fertig 

1C74 B8 

CP 

B 

Vergleichszeichen erreicht 7 

1C75 28E4 

OR 

Z. 1C5BH 

Oa: Zeichen übernehmen 

1C77 23 

INC 

HL 

Textzeiger +1 

1C78 12 

LD 

(OE) .A 

Zeichen im Buffer ablegen 

1C79 OC 

INC 

C 

Zähler +1 

1C7A 13 

INC 

DE 

Bufferzeiger +1 

1C7B 18F3 

OR 

1C70H 

Nächstes Zeichen 

Zeile komplett 

codiert 



1 C7D 210500 

LD 

HL.0005H 

5 zur Länge hinzuaddieren 

1C80 44 

LD 

B.H 

C 2 Bytes Zei l enoointer . 2 Bytes 

1C81 09 

ADD 

HL.BC 

Zeilennummer. 1 Byte Zeilenende: 

1C82 44 

LD 

B.H 

BC * Anzahl der im Programm- 

1C83 4D 

LD 

C.L 

speicher benötigten Bytes 

1C84 2AA740 

LD 

HL. C40A7H) 

HL - Anfang des Zeilenbuffers 

1C87 2B 

DEC 

HL 

HL ■ Zeiger auf codierte 

1C88 2B 

DEC 

HL 

Zeile - 1 

1089 2B 

DEC 

HL 


1C8A 12 

LD 

( DE ) . A 

Codierte Zeile mit dreimal OOH 

1C8B 13 

INC 

DE 

abschl ießen 

1C8C 12 

LD 

( OE ) . A 


IC 80 13 

INC 

DE 


1C8E 12 

LD 

(DE) .A 


1C8F C9 

RET 
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UPRO RST 18H: 16-Bit Vergleich 

Vergleicht DE mit HL und setzt die Flags entsprechend 
(wie CP HL. DE) 




1C90 7C 
1 C9 1 92 
1C92 CO 
1 C93 7D 
1C94 93 
1C95 C9 


LD A.H 

SUB D 

RET N2 

LD R.L 

SUB E 

RET 


ft = MSB von HL 
: MSB von DE abziehen 
RET wenn ungleich 
: Desgl . mit LSBs 


UPRO RST 08H: Syntaxprüfung 

Vergleicht das Byte in (HL) mit dem Byte das nach dem RST 08H im Speicher 
steht. Bei Gleichheit wird ein RST 10H ausgeführt und der Rücksprung erfolgt 
zur normalen RET-ftdr + 1 (da bei (RET-ftdr) das Vergleichsbyte steht) 

Sind die beiden Zeichen ungleich wird ein SN-Error generiert 


1 C96 7E 
1 C97 E3 
's-/ 1C98 BE 
1C99 23 
lC9ft E3 
1 C9B CR781D 
1C9E C39719 


LD ft. (HL) 

EX (SP). HL 

CP (HL) 

INC HL 

EX (SP). HL 

DP Z.1D78H 

DP 1997H 


; ft * Textzeichen 
; HL : Vergleichszeichen 
:Sind beide Zeichen gleich ? 
: HL +1 für RET-ftdr 
:RET-ftdr zurück ins Stack 
; RST 10H bei Gleichheit 
:sonst SN-Error 


lCftl 3E64 
1 Cft3 32DC40 
1CA6 CD211F 


1 Cft9 E3 


lCftft CD36 1 9 

lCftD Dl 
lCftE 2005 
1CB0 09 
S-^ 1 CB 1 F9 


1CB2 22E840 
1CB5 EB 
1CB6 0E08 
1CB8 CD6319 
1CBB E5 
1CBC CD051F 


1CBF £3 
1CC0 E5 


LD A.64H 

LD ( 40DCH ) , ft 

CALL 1F21H 


EX (SP). HL 


CALL 1936H 

POP DE 

DR NZ.1CB5H 

ADD HL.BC 

LD SP. HL 


LD ( 40E8H ) . HL 

EX DE. HL 

LD C.08H 

CALL 1963H 

PUSH HL 

CALL 1F05H 


EX (SP). HL 

PUSH HL 


: ft <> 0 

sFeldvariablen sperren 
; LET ausführen (Schleifenvariable 
janlegen und den Startwert 
izuweisen) 

: PTZ retten. HL * RET-ftdr 
:DE = VftRPTR auf Schlei fen- 
: variable 

:Ist bereits eine FOR-TO-Sch l e i f e 
;mit dieser Variablen aktiv *> 

; DE - PTZ 

:Nein: weiter bei 1CB5H 
: Da : HL » HL + 14 (BC » OOOEH) 
;ftlte Schleife mit gleicher 
:Variablen aufheben (vom Stack 
: löschen) 

.•Neuen SP abspeichern 
: HL « PTZ 

: Sind noch 2*C * 16 Bytes frei ? 
:(Es werden 17 Bytes gebraucht) 

: PTZ retten 

: PTZ bis zum nächsten Befehl 
rerhöhen ( PTZ zeigt damit auf 
ersten Befehl IN der Schleife) 

: neuen PTZ retten. HL * alter PTZ 
: PTZ retten 
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1CC1 
1 CC4 
1CC5 
1CC6 
1CC7 
1CC8 
1CCB 
1CCE 
1CCF 
1CD2 
1CD3 
1CD4 


CRF60R 

D2F60R 


E5 

F2EC1C 


LD 

EX 

RST 

DEFB 

RST 

3P 

DP 

PUSH 

CRLL 

POP 

PUSH 

DP 


HL. C40R2H) 
CSPJ .HL 
08H 

'TO' -Token 
20H 

Z.0RF6H 

NC.0RF6H 

RF 

2337H 

RF 

HL 

P. 1CECH 


: HL - aktuel le ZN 
; ZN retten. PTZ zurück 
: 'TO' -Token suchen 

: TSTTYP C Start wert ) 

: TM-Error bei STR 
;TM-Error bei DBL 
:Typcode - 3 retten 
: X « Endwert 
: Typcode zurück 
: PTZ retten 

.•Sprung wenn Schleifenvariable 
: im SNG-Format 


INT -Schleife 


1CD7 CD7F0R 
1 CDR E3 
1CDB 110100 
1CDE 7E 
1CDF FECC 
ICE 1 CC012B 
1CE4 D5 
1CE5 E5 
1CE6 EB 
1 CE7 CD9E09 
1CER 1822 


CRLL 0R7FH 

EX (SPD. HL 

LD DE . 000 1H 

LD R.CHL) 

CP OCCH 

CRLL Z.2B01H 

PUSH DE 

PUSH HL 

EX DE. HL 

CRLL 099EH 

3R 1D0EH 


Endwert ins INT-Format umwandeln 
Endwert retten, PTZ zurück 
OE * Defaul t -Stepwert C 1 3 
R * Nächstes Zeichen 
'STEP' -Token ? 

3a: DE « Stepwert 
Stepwert retten 
PTZ retten 
HL * Stepwert 
R - SGNC Stepwert ) 
weiter bei 1D0EH 


SNG-Sch l e i f e 


1CEC CDB10R 
1CEF CDBF09 
1 CF2 El 
1CF3 C5 
1CF4 05 
1CF5 010081 
1CF8 51 
1CF9 5R 
1CFR 7E 
1CFB FECC 
IC FD 3E01 
1CFF 200E 
1D01 CD3823 
1D04 E5 
1D05 CDB10R 
1 D08 CDBF09 
1DCB CD5509 


CRLL ORB 1H 

CRLL 09BFH 

POP HL 

PUSH BC 

PUSH DE 

LD BC.8100H 

LD D.C 

LD E.D 

LD R.CHL) 

CP OCCH 

LD R.01H 

DP NZ.1D0FH 

CRLL 2338H 

PUSH HL 

CRLL ORB 1H 

CRLL 09BFH 

CRLL 0955H 


:Endwert ins SNG-Format umwandeln 
: BCDE - Endwert 
:PTZ zurück 
;Endwert retten 

: BCDE - Default-Stepwert (1) 


STEP ’ -Token angegeben ? 

: R « SGNC De fault -Stepwert ) 
;Nein: Weiter bei 1D0FH 
:3a: X = Stepwert 
: PTZ retten 
: X - CSNGCX1 
: BCDE = X = Stepwert 
: R = SGNCStepwert ) 
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FOR-Stack abschl ießen 


1DOE El 
1D0F C5 
1D10 D5 
1 D 1 1 4F 
1 D 1 2 E7 
1D13 47 
1D14 CS 
1D15 E5 
1D16 2RDF40 

1D19 E3 
1D1R 0681 
101C C5 
1D1D 33 


POP HL 

PUSH BC 

PUSH OE 

LD C.A 

RST 20H 

LD B.Pl 

PUSH BC 

PUSH HL 

LD HL.C40DFH) 

EX CSPJ.HL 

LD B.81H 

PUSH BC 

INC SP - 


: PTZ zurück 
:Stepwert retten 
: C für SNG-Schlei fe) 

:C = SGNC Stepwert ) 

: TSTTYP CStepwert) 

:B * Typcode - 3 
: Typcode und SGNC St epwer t ) 

: PTZ retten 

; HL - VARPTR der Schleifen- 
: variablen 

: VARPTR retten. PTZ zurück 
;B - 'FOR' -Token 
:Stack markieren 
: LSB wieder entfernen 


Programmschleife 

Rücksprungadresse nach Ausführung eines Befehls im Programm 
HL C PTZ 1 muß auf Befehlsende C * : * 3 oder Zeilenende COOH) zeigen 


retten 


1D1E CD5803 
1D21 B7 
1D22 C4A01D 
1D25 22E640 
1D28 ED73E840 
1D2C 7E 
1D2D FE3A 
1 D2F 2829 
1D31 B7 
1D32 C29719 


CALL 

OR 

CALL 

LD 

LD 

LD 

CP 

3R 

OR 

3P 


0358H 

A 

NZ. 1DAOH 
C40E6H) .HL 
C40E8H) .SP 
A. CHL) 

3AH 

Z. 1D5AH 
A 

NZ. 1997H 


: Taste gedrückt ? 

; 3a : Shirt-« oder Break ? 
:PTZ abspeichern 
:SP abspeichern 
:A ■ nächstes Zeichen 

; * 's* <> 

:3a: OH. weiter bei 1D5AH 
:» OOH ? (Zeilenende] 
.•Nein: SN-Error 


Neue Zeile beginnen 


1D35 23 INC 

1D36 7E LD 

1D37 23 INC 

1D38 B6 OR 

1D39 CA7E19 DP 

1D3C 23 INC 

1D3D 5E LD 

1D3E 23 INC 

1D3F 56 LD 

1040 EB EX 

1D41 22A240 LD 

1D44 3A1B41 LD 

1047 B7 OR 

1 048 280F OR 


HL 

A. CHL] 

HL 

CHL] 

Z. 197EH 
HL 

E. CHL) 

HL 

D. CHL) 

DE. HL 
C40A2H) .HL 
A . C 4 1 1BH ) 

A 

Z. 1D59H 


PTZ +1 

Adresse der nächsten Zeile 
prüfen 

= OOOOH C Programmende erreicht 
3a: Programm beenden 
DE = Zeilennummer 


: DE * PTZ. HL * ZN 
:Aktuelle ZN abspeichern 
: TRACE aktiv 
: (41 1BH) <> 0 *» 

.•Nein: weiter bei 1D59H 



TRACE aus führen 


1D4A D5 

PUSH 

OE 

: PTZ retten 

1D4B 3E3C 

LO 

ft . 3CH 

: ft - ' < ' 

1D4D CD2A03 

CftLL 

032ftH 

.‘Zeichen ausgeben 

1D50 CDAFOF 

CftLL 

OFftFH 

: HL als Oezimalzahl ausgeben 
: (Zei lennummer ) 

1053 3E3E 

LD 

ft . 3EH 

: ft - ' > * 

1D55 CD2A03 

CftLL 

032ftH 

sZeichen ausgeben 

1D58 Dl 

POP 

OE 

; PTZ zurück 

1D59 EB 

EX 

DE. HL 

: HL * PTZ. DE - ZN 

1D5A DT 

RST 

10H 

.•nächstes Zeichen nach ft 

1 05B U1E1D 

LD 

DE. 101EH 

:RET-Adr auf 1D1EH setzen 

1D5E 05 

PUSH 

OE 


1 D5F C8 

RET 

Z 

:RET wenn Zeilenende erreicht 

1D60 D680 

SUB 

80H 

sToken gefunden ? 

1 062 DA211F 

3P 

C. 1F21H 

sNein: Zeichen als Variable au 
: fassen, weiter bei LET 

1065 FE3C 

CP 

3CH 

sBefehl oder Funktion ? 

1D67 C3C039 

3P 

39C0H 

sColour-Befehl gefunden 7 

1D6A 07 

RLCft 


:A * Tokenzahl * 2 

1D6B 4F 

LD 

C .ft 

:BC * Offset für Adressentabei 

1D6C 0600 

LD 

B.OOH 


1 06E EB 

EX 

DE. HL 

:0E - PTZ 

1 D6F 212218 

LO 

HL. 1822H 

; HL ■ Zeiger auf ftdressent abe l 

1D72 09 

ftDD 

HL.BC 

sOffset addieren 

1 D 7 3 4E 

LO 

C. (HL) 

: Befehl sadresse nach BC laden 

1D74 23 

INC 

HL 


1D75 46 

LD 

B. (HL) 


1076 C5 

PUSH 

BC 

sftdresse ins Stack (für RET) 

1077 EB 

EX 

DE. HL 

; HL * PTZ 

RST 10H: PTZ auf nächstes Zeichen <> 20H (Leerzeichen) erhöhen 

I ; HL - PTZ 




Os HL - PTZ (+1 

mindestens) 



ft * Zeichen 

in (HL) 



CY * 1 wenn 

Ziffer gefunden 



Z ■ 1 wenn 

Zeilenende oder 

Befehlsende 

( ' : ’ ) gefunden 

1D78 23 

INC 

HL 

: PTZ +1 

1079 7E 

LD 

ft. (HL) 

:ft * nächstes Zeichen 

lD7ft FE3ft 

CP 

3ftH 

sZeichen > Ziffer 7 

1D7C 00 

RET 

NC 

s3as Fertig (Z*l wenn ft ■ 's') 

1D7D FE 20 

CP 

20H 

sLeerzeichen gefunden ° 

1D7F CA781D 

3P 

Z. 1D78H 

:3as nächstes Zeichen holen 

1082 FEOB 

CP 

OBH 

sZeichen > OftH 

1084 3005 

3R 

NC . 1D8BH 

:3a: weiter bei 1D8BH 

1086 FE09 

CP 

09H 

sZeichen > 08H ? 

1D88 027810 

3P 

NC . 1D78H 

sDa: nächstes Zeichen holen 

1D8B FE30 

CP 

30H 

sZiffer gefunden ? 

1D8D 3F 

CCF 


:3as CY - 1 

1D8E 3C 

INC 

ft 

sZeilenende erreicht *> 

1D8F 30 

OEC 

A 

j(ft - 00H ?) 
:3a: Z - 1 

1090 C9 

RET 
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1D9 1 EB EX 

1092 2AA440 LD 

1D95 29 DEC 

1096 22FF40 LD 

1099 EB EX 

1D9A C9 RET 

Shift-9 oder BreaK gedrückt 

1D9B CD5803 CALL 

1D9E B7 OR 

1D9F C8 RET 

1DA0 FE60 CP 

1DA2 CC8403 CALL 

1DA5 329940 LD 

1DA8 30 DEC 

STOP 

1 DA9 CO RET 

Break gedrückt 

1 DAA 3C INC 

1DAB C3B41D 3P 

END 

1DAE CO RET 

1DAF F5 PUSH 

1 DBO CCBB41 CALL 

1DB3 Fl POP 

STOP CZ«0) , END CZ-1) 

1DB4 22E640 LD 

1 DB 7 21B540 LD 

1 DBA 22B340 LD 

1DBD 21F6FF LD 


DE. HL 

HL . C40A4H) 
HL 

( 40FFH ) .HL 
DE. HL 


: DE - P TZ 

: HL ■ Programmstart 
: HL - HL - 1 

;DATA-Zeiger ■ Programmstart -1 
: HL « PTZ 


0358H 

A 

z 

60H 

Z.0384H 

( 4099H ) ,A 
A 


:Taste gedrückt 7 

:Nein: Fertig 
;3a: Shift-ft gedrückt 7 
:3a: auf nächsten Tastendruck 
: warten 

:Letzten Tastencode abspeichern 
: Break 7 CTastencode « 01H) 


NZ 


: Nein : Fertig / SN-Error ? 


A :A * 01H (Tastencode von Break) 

1DB4H iweiter bei 1DB4H 


SN-Error ? 

A retten CA ist 00H ! ) 
DOS 

A zurück 


( 40E6H ) .HL 
HL.40B5H 
(40B3H) .HL 
HL.0FFF6H 


PTZ abspeichern 
:Stringtabel lenzeiger 
zurücksetzen 






w 

STOP-tinsprung wenn b 

ei INPUT 

Break gedrückt 

wurde 

*1DBE F6FF 

OR 

OFFH 

R <> 0. Z - 0 

1 DCO CI 

POP 

BC 

RET-Rdr löschen 

1DC1 2RR240 

LD 

HL. C40R2H) 

HL = Rktuel le ZN 

1DC4 E5 

PUSH 

HL 

ZN retten 

1DC5 F5 

PUSH 

RF 

Flags retten 

1DC6 TD 

LD 

R.L 

ZN = 65535 ? 

1DC7 R4 

RND 

H 

Caktiver Befehlsmodus) 

1DC8 3C 

INC 

R 


1DC9 2809 

DR 

Z. 1DD4H 

Da: kein CONT mögl ich 

1DCB 22F540 

LD 

( 40F5H ) , HL 

Sonst Zeilennummer 

1DCE 2RE640 

LD 

HL . C40E6H) 

und PTZ für CONT abspeichern 

1DD1 22F740 

LD 

( 40F7H ) .HL 


1DD4 CD8B03 

CRLL 

038BH 

Druckerausgabe beenden 

1DD7 CDF920 

CRLL 

20F9H 

Neue Zeile beginnen 

1DDR Fl 

POP 

RF 

Flags zurück 

1DDB 213019 

LD 

HL. 1930H 

HL » Zeiger auf Text 'Break ' 

1 DDE C2061R 

DP 

NZ. 1R06H 

STOP: weiter bei 1R06H 

1 DE 1 C3181R 

DP 

1R18H 

END: Zurück zum aktiven 
Befehlsmodus 

CONT 




IDE 4 2RF740 

LD 

HL, C40F7H) 

HL - alter PTZ 

1 DE7 7C 

LD 

R.H 

HL ■ OOOOH *» 

IDE 8 B5 

OR 

L 


1 DE9 1E20 

LD 

E.20H 

E - Fehlercode für CN-Error 

1DEB CRR219 

DP 

Z. 19R2H 

Da: CN-Error 

IDEE EB 

EX 

DE. HL 

DE - PTZ 

1DEF 2RF540 

LD 

HL. C40F5HD 

HL ■ alte Zeilennummer 

1 DF2 CDR038 

CRLL 

38R0H 

: HL als aktuelle ZN abspeichern 
: und CRTC auf letzten Wert pro- 
grammieren 

1DF5 EB 

EX 

DE. HL 

: HL - PTZ 

1DF6 C9 

RET 


[nächsten Befehl ausführen 

: TRON 




1DF7 3ERF 

LD 

R.ORFH 

: R <> 0 

: TROFF 




* 1DF8 RF 

XOR 

R 

: R ■ 0 

1 DF9 321B41 

LD 

C411BH) , R 

;TRRCE-Fl ag setzen 

1DFC C9 

RET 


: Fert ig 

1DFD Fl 

POP 

RF 

: — 

1DFE £1 

POP 

HL 


id c - :9 

RET 
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OEFSTR 


1EOO 1E03 
1E02 011E02 

: DEFINT 

* 1 E03 1E02 

1E05 011E04 

: DEFSNG 

* 1 E06 1E04 

1E08 011E08 


LD E.03H 

LD BC . 021 EH 


LD E.02H 

LD BC.041EH 


LD E.04H 

LD BC.081EH 


: E - VT für STR 


: E - VT für INT 


:E « VT für SNG 


: DEFDBL 

* 1E09 1E08 

1E0B CD3D1E 
^ 1E0E 019719 
1E11 C5 
IE 12 D8 

1 E 1 3 D641 
1 E 1 5 4F 
IE 16 47 
IE 17 D7 
IE 18 FECE 
1E1R 2009 
IE IC D7 
1E10 CD3D1E 
1E20 D8 
1E21 D64 1 
1E23 47 
1E24 D7 
1E25 78 
1E26 91 
1E27 D8 


w 1E28 3C 
1E29 E3 
1E2R 210141 
1E2D 0600 
1 E2F 09 
1E30 73 
1E31 23 
1E32 30 
1E33 20FB 
1E35 El 
1E36 7E 
1 E37 FE2C 
1E39 CO 
iE3R 07 
-128 18CE 


LD E.08H 

CRLL 1E3DH 

LD BC.1997H 

PUSH BC 

RET C 

SUB 4 1 H 

LD C.R 

LD B.fi 

RST 10H 

CP OCEH 

3R N2.1E25H 

RST 10H 

CRLL 1E3DH 

RET C 

SUB 4 1H 

LD B.R 

RST 10H 

LD R.B 

SUB C 

RET C 


INC R 

EX C SP) . HL 

LD HL.4101H 

LD B.OOH 

RDD HL.BC 

LD (HL).E 

INC HL 

DEC R 

3R NZ.1E30H 

POP HL 

LD R.(HL) 

CP 2CH 

RET NZ 

RST 10H 

3R 1E0BH 


; E - VT für DBL 
:Buchstabe angegeben ? 

; BC « RET-Rdr auf SN-Error 
:BC als RET-Rdr setzen 
:SN-Error wenn Hein Buchstabe 
: angegeben 

: R » Offset für Tabelle 
: C * R 
:B - R 

••nächstes Zeichen holen 
; ’ - ' gefunden ? 

.•Nein: Tabelle setzen 
:3a: 2. Buchstaben holen 
:Buchstabe gefunden ? 

: Nein : SN-Error 
: R » Offset für Tabelle 
;B - R 

: PTZ auf nächstes Zeichen erhöhen 
:R ■ Offset des 2. Buchstaben 
; - Offset des 1. Buchstaben 
:SN-Error wenn die Buchstaben 
:nicht in alphabetischer Reihen- 
folge angegeben wurden 
: R = Zähler 

: PTZ retten. RET-Rdr löschen 

:HL * Tabellenzeiger 

:BC = Offset auf 1. Buchstaben 

: HL * Zeiger auf 1. Buchstaben 

: VT in Tabelle setzen 

: Zeiger +1 

: Zäh l er -l 

:nächste Tabellenposition setzen 
: PTZ zurück 
:R = nächstes Zeichen 
: ' . ' angegeben ? 

;Nein: Fertig 

:3a: Nächstes Zeichen holen 
:und DEF wiederholen 
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Test ob das ASC I I-Zeichen in C HL ) ein Grossbuchstaoe ist 
I: HL : zu testendes ASC I I -Zeichen 

0: CY « 0 wenn das Zeichen ein Grossbuchstabe ist (sonst CY * 1) 


1E3D 7E 
1E3E FE4 1 
1E40 D8 
1E41 FE5B 
1E43 3F 
1 E44 C9 


L0 A.(HL) 

CP 4 1H 

RET C 

CP 5BH 

CCF 
RET 


:R » Zeichen 
: A < ’ R ’ ? 

:3a: RET mit CY * i 
:A > 'Z' *> 

:3a: CY * 1 
: Fer t ig 


Argument in C HL 5 in INT-Zahl umwandeln. FC-Error bei negativer Zahl 


1E45 D7 
1E46 CD022B 
1E49 FO 


RST 10H 

CALL 2B02H 
RET P 


FC-Error 


1E4A 1 E08 LD E.08H 

1E4C C3A219 3P 19A2H 


Zeilennummer decodieren CZahl oder ’.') 


PTZ erhöhen 
Argument holen 
RET wenn Positiv 


:E = Fehlercode 
: Feh l errout ine anspringen 


1E4F 7E 
1E50 FE2E 
1E52 EB 
1E53 2AEC40 
1E56 EB 
1E57 CA781D 


LD 

CP 

EX 

LD 

EX 

3P 


A. (HL) 

2EH 
DE. HL 

HL . ( 40ECH ) 
DE. HL 
Z. 1D78H 


:A = Zeichen 
: ' . ’ gefunden ? 

; DE ■ '.'-Zeilennummer 

:3a: RST 10H ausführen. Fertig 


Nummer in (HL) nach DE decodieren 


1 E5A 2B 
1E5B 110000 
1E5E D7 
1E5F DO 


1E60 E5 
1E61 F5 
1E62 219819 
1E65 DF 


1E66 DA9719 


DEC HL 

LD DE.OOOOH 

RST 10H 

RET NC 


PUSH HL 

PUSH AF 

LD HL.1998H 

RST 18H 

3P C . 1997H 


: PTZ -1 (wegen RST 10H) 

:Ergebnis = 0 
:nächste Zeichen holen 
:Fertig wenn keine Ziffer 
: gefunden 
: PTZ retten 
: Zi f fer retten 
:HL « 6552 

:Ist das Ergebnis schon jetzt 
igrößer als 6552 ? 

;3a: SN-Error (mit der jetzigen 
sZiffer wäre DE größer als 65529) 
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1E69 

62 

LD 

H.D 

HL « alter Wert 

1 ESA 

6B 

LD 

L.E 

HL ■ HL * 10 

1E6B 

19 

ADD 

HL. DE 

1E6C 

29 

ADD 

HL. HL 


1 ESO 

19 

ADD 

HL. DE 


1 E6E 

29 

ADD 

HL. HL 


1E6F 

Fl 

POP 

AF 

Ziffer zurück 

1E70 

D630 

SUB 

30H 

A = Ziffernwert 

1 E72 

5F 

LD 

E.A 

DE * Ziffernwert 

1E73 

1600 

LD 

D.OOH 


1E75 

19 

ADD 

HL. DE 

Neuen Ziffernwert aufaddieren 

1E76 

EB 

EX 

DE. HL 

DE * neuer Wert 

1E77 

El 

POP 

HL 

PTZ zurück 

1E78 

18E4 

DR 

1E5EH 

nächste Ziffer holen 

CLEAR 

1E7A CA611B 

DP 

Z.1B61H ;nach 1B61H wenn Hein Argument 

CLEAR mit Argument 
1E7D CD461E 

CALL 

1E46H 

angegeben wurde 

INT -Arg holen. FC-Error wenn 

1E80 

2B 

DEC 

HL 

PTZ -1 

1E81 

07 

RST 

10H 

Befehlsende erreicht "> 

1E82 

CO 

RET 

NZ 

Nein: SN-Error 

1E33 

E5 

PUSH 

HL 

PTZ retten 

1E84 

2AB140 

LD 

HL. C40B1H3 

HL : Höchster Speicherplatz 

1 E87 

7D 

LD 

A.L 

DE : Höchster Speicherplatz - 

1 E88 

93 

SUB 

E 

Größe des neuen Stringspeiche 

1E89 

5F 

LD 

E.A 


1 E8A 

7C 

LD 

A.H 


1 E8B 

9A 

SBC 

A.D 


1 E8C 

57 

LD 

D.A 


1E80 

DA7A19 

DP 

C. 197AH 

OM-Error wenn Stringspeicher 

1E90 

2AF940 

LD 

HL. C40F9HD 

zu groß 

HL = Zeiger auf Programmende 

1E93 

012800 

LD 

BC.0028H 

BC - 40 

1 E96 

09 

ADD 

HL.BC 

HL : Programmende + 40 

1 E97 

DF 

RST 

18H 

HL und DE vergleichen 

1 E98 

D27A19 

DP 

NC. 197AH 

Ofl-Error wenn weniger als 

1E9B 

EB 

EX 

DE. HL 

: 40 Bytes Platz 

JHL : Neuer Anfang des String- 

1 E9C 

22A040 

LD 

C40A0H1 .HL 

; Speichers 
:HL abspeichern 

1E9F 

El 

POP 

HL 

: PTZ zurück 

1 EAO 

C36 1 1 B 

DP 

1B61H 

;CLEAR ausführen. Fertig 
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RUN 


1EA3 CR5D1B 

1EA6 CDC741 
1EA9 CD6UB 
1ERC 01 IE 10 

1EAF 1810 

GOSUB 


DP Z.1B5DH 

CALL 41C7H 

CALL 1B61H 

LD BC.1D1EH 

DR 1EC1H 


[weiter bei 1B5DH wenn keine 
: Zei l ennummer angegeben wurde 
; DOS 
: CLEAR 

;BC ■ RET-Adr auf Programm- 
: schlei f e 
iweiter bei GOTO 


1EB 1 0E03 
1EB3 CD6319 
1 EBB CI 
1EB7 E5 
1EB8 E5 
1EB9 2AA240 
1EBC E3 
1EBD 3E9 1 
1EBP F5 
1EC0 33 
1EC1 C5 

GOTO 

1EC2 CD5A1E 
1EC5 CD071F 

1EC8 E5 
1EC9 2AA240 
1ECC DF 

1ECD El 
1ECE 23 
1ECF DC2F1B 

1ED2 D42C1B 


1ED5 60 
1E06 69 
1ED7 2B 
1ED8 D8 

UL-Error 

1ED9 1E0E 
1EDB C3A219 


LD 

CALL 

POP 

PUSH 

PUSH 

LD 

EX 

LD 

PUSH 

INC 

PUSH 


C.03H 

1963H 

BC 

HL . 

HL 

HL . C40A2H) 

C SP 1 . HL 

A.91H 

AF 

SP 

BC 


:Noch 2 x C Bytes frei *> 

:Sonst OM-Error 
: BC - RET-Adr 

: PTZ retten (für GOSUB-Stack) 

: PTZ retten 

; HL ■ Aktuelle Zeilennummer 
: Akt ue l l e ZN retten. PTZ zurück 
: A * GOSUB-Token 
:A als Kennung in Stack 
: LSB aus Stack löschen 
:RET-Adr zurück in Stack 


CALL 1E5AH 

CALL 1F07H 

PUSH HL 

LD HL.C40A2H5 

RST 18H 

POP HL 

INC HL 

CALL C.1B2FH 

CALL NC.1B2CH 


LD H.B 

LD L.C 

DEC HL 

RET C 


[ZN decodieren. DE * ZN 
: PTZ bis zum Ende der Zeile 
: erhöhen 

; neuen PTZ retten 

: HL « Aktuel le ZN 

: Akt uel l e ZN mit gesuchter ZN 

: vergleichen 

: neuen PTZ zurück 

:HL ■ Zeiger auf nächste Zeile 

;Zeile DE ab HL suchen, wenn 

:gesuchte ZN > aktuelle ZN 

:Zeile DE ab Progr amms t ar t 

;suchen. wenn gesuchte ZN <* 

; akt ue Ile ZN 

:HL * Zeiger auf gesuchte Zeile 
[HL -1 

[Fertig wenn Zeile gefunden 


LD E.OEH :E = Fehlercode 

DP 19A2H [Fehlerroutine anspringen 
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: RETURN 

1EDE CO 
1EDF 16FF 
1EE1 CD3619 
1EE4 F9 
1EE5 22E840 
1EE8 FE9 1 
1EER 1E04 
1EEC C2R219 
1EEF El 
1EFO 22R240 
1EF3 23 
1EF4 7C 
1EF5 85 
1EF6 2007 


1EF8 3RDD40 
w 1EFB B7 

1EFC C2181R 

1EFF 21 IE 10 

1F02 E3 
1F03 3EE 1 
* 1 F04 El 


RET NZ 

LD D.OFFH 

CRLL 1936H 

LD SP. HL 

LD C 40E8H ) . HL 

CP 91H 

LD E.04H 

3P NZ.19R2H 

POP HL 

LD C 40R2H ) . HL 

INC HL 

LD R.H 

OR L 

3R NZ.l-EFFH 


LD A. C40DDH) 

OR A 

OP NZ.1A18H 

LD HL.1D1EH 

EX (SP). HL 

LD A.0E1H 

POP HL 


: SN-Er ror ? 

: Fl ag <> 0 

:GOSUB-Stack suchen 

: SP » HL ( GOSUB-St acH löschen) 

:Neuen SP abspeichern 

: GSOUB-St ach gefunden 

: E * Fehlercode für RG-Error 

:Nein: RG-Error 

: HL * ZN der GOSUB-Zeile 

: A l s aktuelle ZN setzen 

: ZN « 65535 ? 

: ( kam der GOSUB-Befehl vom 
:aktlven Befehlsmodus *>) 

:Nein: PTZ auf nächsten Befehl 
:nach ’GOSUB’ erhöhen und dort 
: Programmaus führung fortsetzen 
: STOP-Fl ag * 0 ? 

:Nein: Zurück zum aktiven 
:Befehlsmodus 

: HL * RET-Adr zur Programm- 
: schlei f e 

; HL - PTZ. RET-Adr- 1D1EH 
: PTZ zurück 


: PTZ (HL) auf nächsten Befehl erhöhen 


1F05 013A0E 

: PTZ (HL) auf 

** 1 r 07 OE 00 

* 1 F08 00 
1 F09 0600 
1 FOB 79 


LD BC.0E3AH 

nächste Zeile erhöhen 

LD C.OOH 

NOP 

LD B.OOH 

LD A.C 


LD C.B 


1 FOD 47 
1F0E 7E 
1 FOF B7 
1 F 1 0 C8 
1F11 BS 
1 c 12 CS 
1 F 1 3 23 



LD B.A 

LD A.(HL) 

OR A 

RET Z 

CP B 

RET 2 

INC HL 

CP 22H 

CP Z.1F0BH 


:C - OOH 
:B - OOH 

:A » Suchzeichen C- OOH wenn 
sString gefunden. PTZ wird dann 
:aufs Ende der Zeile erhöht) 

:C - OOH C = Suchzeichen wenn 
:String gefunden) 

:B - Suchzeichen 
: A - nächstes Zeichen 
: Zeilenende ? 

:3a: Fertig 
.•Zeichen gefunden ° 

: 3a : Fertig 
: PTZ +1 

;3tring gefunden * 

:3a: PTZ bis Zeilenende erhöhen 
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1 F 1 8 D68F 
lFlft 20F2 
1F1C B8 

1 FlD 8A 
1F1E 57 

1F1F 18ED 

LET 

1 F21 CD0D26 
1F24 CF 
1F25 05 
1F26 EB 
1 F27 22DF40 
1F2A EB 
1F2B 05 
1F2C E7 
1 F2D F5 
1F2E CD3723 
1F31 Fl 
1F32 E3 
1F33 C603 
1F35 CO 1 928 
1 F38 CD030A 

1 F3B £5 
1 F3C 2028 

Wertzuweisung auf St 

1 F3E 2A2141 
1F41 E5 
1 F42 23 
1 F43 5E 
1 F44 23 
1 F45 58 
1F46 2AA440 

1 F49 DF 
1F4PI 300E 


1F4C 2AA040 

1 F4F DF 
l c 50 Dl 
1F51 300F 


SUB 3 FH 

OB NZ.lFOEH 

CP B 

ADC A . D 

LD D. A 

3R 1F0EH 


CALL 2600H 

RST 08H 

DEFB ’ ■ ' -Token 

EX DE. HL 

LD C 40DFH ) . HL 

EX DE. HL 

PUSH DE 

RST 20H 

PUSH AF 

CALL 2337H 

POP AF 

EX (SP). HL 

ADD A.03H 

CALL 2819H 

CALL 0A03H 

PUSH HL 

3R NZ.1F66H 

r ingvar i abl e 

LD HL.C4121H) 

PUSH HL 

INC HL 

LD E.(HL) 

INC HL 

LD D.CHL) 

LD HL.C40A4H) 

RST 18H 

OR NC.1F5AH 


LD HL.C40A0H) 

RST 18H 

POP DE 

ÜR NC.1F82H 


: * I F ' gef unden 7 

:Nein: weitersuchen 

;3a: CV * 1 wenn 3AH gesucht 

: wurde CA = OOH ') 

: A « OOH + D + CY 
;D = Zähler für geschachtelte 
: I F THEN ELSE-Be fehle 
; weitersuchen 


;DE * VARPTR der Variablen 
; Es mu0 * « * f ol gen 


: VARPTR abspeichern 

: VARPTR retten 
.•TSTTVP 

: Typcode-3 retten 

:Ausdruck nach X 

: Typcode-3 zurück 

: PTZ retten. VARPTR zurück 

:Typcode berichtigen 

:X in gewünschten Typ umwandeln 

; DE = Zeiger auf LSBCX) für 

: SNG . DBL und INT. TSTTYP 

: VARPTR retten 

:Sprung wenn nicht STR 


; HL : Vektor des neuen Strings 
: HL retten 

:DE = Zeiger auf neuen String 


HL = Startadresse des Basic- 
programms 
■ C P HL. DE 

Sprung wenn Stringadresse 
< Programmstart (String ist im 
Zeilenbuffer) Cz.B. bei INPUT) 
HL ■ Startadresse des String- 
speichers 
CP HL. DE 

DE: Vektor des neuen Strings 
Sprung wenn Stringadresse 

St-ingsceichers 'String ist 
im “'Ogrammiex: ; 

(St- :ng konstante) 
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KJ 


1 F53 2AF940 
1F56 DF 
IF57 3009 


1F59 3ED1 
*1F5A Dl 
1F5B CDF529 

1F5E EB 


1 F5F CD4328 


1 F62 CDF529 
1F65 E3 

w 1F66 C0D309 

1F69 Dl 
1F6A El 
1F6B C9 

S 0N 

1F6C FE9E 
1F6E 2025 

: ON ERROR GOTO 

1 F70 D7 
1F71 CF 
1F72 80 
1 F73 CD5A1E 
1 F76 7R 
1 F77 B3 
1F78 2809 
1 F7A CD2A1B 
1F7D 50 
1 F7E 59 
1F7F El 
1 F80 0209 1 E 

1F83 EB 
1FB4 22F040 
1F87 EB 
1 F88 08 
1 F89 3AF240 
1 F8C B7 
1F8D C8 
1F8E 3R9R40 
1 F3 1 5F 
1F92 C3AB19 


LD 

RST 

OR 


LD 

POP 

CRLL 

EX 


CRLL 


CRLL 

EX 

CRLL 

POP 

POP 

RET 


HL . (40F9H) 
18H 

NC . 1F62H 


R.0D1H 

DE 

29F5H 
DE. HL 


2843H 


29F5H 
(SP) .HL 

09D3H 

DE 

HL 


: HL » Startadresse der Variablen 
:CP HL. DE 

sSprung wenn Vektorenadresse des 
:neuen Strings nicht im 
; Var i ab l enspe i eher liegt Cder 
; neue String ist keine Variable) 

: DE : Vektor des neuen Strings 
; BC * Adresse des letzten Strings 
sin der Stringtabelle 
: DE : Vektor des letzten Strings 
sin Stringtabelle. HL: Vektor 
sdes neuen Strings 
sNeuen String in St r ingspeicher 
: übernehmen , Stringvektor in die 
sStringtabel le eintragen 
: DE : Vektor des neuen Strings 
: HL : Vektor der Variablen 
sVektor des neuen Strings retten 
: VT-Bytes von (DE) nach (HL) 

: kopieren 

sVektor des neuen Strings zurück 
;PTZ zurück 


CP 9EH : nächstes Token » 'ERROR' ? 

OR N2.1F95H sNein: weiter bei 1F95H 


RST 

RST 

DEFB 

CRLL 

LD 

OR 

OR 

CRLL 

LD 

LD 

POP 

OP 

EX 

LD 

EX 

RET 

LD 

OR 

RET 

LD 

LD 

OP 


10H 

08H 

'GOTO '-Token 

1E5RH 

A.D 

E 

Z. 1F83H 

1B2RH 

D.B 


: PTZ erhöhen 

snächsten Token mu0 'GOTO' sein 

: Zei l ennummer decodieren 
:Zei lennummer * 0 ? 

;0a: weiter bei 1F83H 
; PTZ retten und Zeile DE suchen 
: DE « Zeilenadresse 


HL 

NC . 1ED9H 
DE. HL 

C40F0H) .HL 
DE .HL 
C 

R. (40F2H) 

A 

Z 

R. C409RH) 

E.R 

19RBH 


: PTZ zurück 

:UL-Error wenn Zeile nicht 
: gefunden 

: Zei l ennummer abspeichern 

sFertig wenn ZN <> 0 
:A = Errorflag 
:ON-ERROR-GOTO gesetzt ? 
sNein: OH 

:0a: R » letzter Fehlercode 
:E * Fehlercode 
sFehler bearbeiten 


— 
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ON GOTO ✓ GOSUB 


IF95 
1 F98 
1F99 
1F9A 
1 F9C 
1 F9E 
1 F9F 
1FAO 
1FA1 
1FA2 
1FA3 
1FA4 


CD1C2B 

7E 


47 

FE 9 1 

2803 

CF 

80 

2B 

46 


OD 

78 

CA601D 


1FA7 CD5B1E 


1FAA FE2C 

1 FAC CO 
1 FAD 1 8F3 


RESUflE 

1 FRF 11F240 
1 FB2 1 A 
1FB3 B7 
1FB4 CAA019 
1 FB7 3C 
1FB8 329R40 
1 FBB 12 
1FBC 7E 
1 FBD FE87 
1 FBF 280C 
1 FC 1 CD5R1E 
1FC4 CO 
1 FC5 7A 
1 FC6 B3 
1 FC7 C2C51E 
1FCR 3C 
1FCB 1802 


CALL 

LO 

LD 

CP 

3R 

RST 

DEFB 

DEC 

LD 

DEC 

LO 

3P 


CALL 


CP 

RET 

3R 


2B1CH 

A. CHL) 

B. A 
91H 

Z. 1FA1H 
08H 

' GOTO ' -Token 
HL 

C. E 
C 

A.B 

Z. 1D60H 


2CH 

NZ 

1FA2H 


:DE = Argument CO - 255} 

:A * nächstes Zeichen 
:B = Zeichen 
: ’ GOSUB ' -Token *> 

:3a: weiter bei 1FA1H 

:Nein: Es muß 'GOTO' sein 

: PTZ -1 (wegen RST 08H) 

:C * Argument (Zähler) 

: Zähl er -1 
:A * Token 

: Zähler * 0 ? 3a: HL zeigt auf 
:gewünschte Zeilennummer. Befehl 
: aus führen 

:Durch Decodierung der Nummer in 
: ( HL ) . PTZ auf nächstes Zeichen 
:nach der Nummer erhöhen 
;Das Trennungszeichen muß ’ . ’ 
:sein 

:Sonst nächsten Befehl ausführen 
:Gewünschte Zeilennummer 
: er reicht ? 


LD DE.40F2H 

LD A.CDE) 

OR A 

3P Z.19A0H 

INC A 

LD ( 409AH ) . A 

LD (DE).A 

LD A.(HL) 

CP 87H 

3R Z.1FCDH 

CALL 1E5AH 

RET NZ 

LD A.D 

OR E 

3P NZ.1EC5H 

INC A 

3R 1FCFH 


: DE : ON ERROR GOTO- Flag 
:A « ON ERROR GOTO-Fl ag 
: ON-ERROR-GOTO aktiv 7 
:Nein: RW-Error 
: A +1 

: letzten Fehlercode <> 0 setzen 
:Errorflag <> 0 setzen 
:A = nächstes “rogrammzeichen 
: 'NEXT' -Token ? 

:3a: weiter bei 1FCDH 
: Zei l ennummer decodieren 
: SN-Error 

: Zei l ennummer * 0 ^ 

:Nein: GOTO aus führen 
;3a: A - 1 (Z - 0) 

: RESUME NEXT aus führen 
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RESUME NEXT 


1 FCD D7 
1 FCE CO 
1 FC F 2REE40 
1 FD2 EB 
1FD3 2RER40 
1 FD6 22R240 
IFD9 EB 
1FDR CO 
1 FDB 7E 

1FDC B7 
1 FDD 2004 
1 FDF 23 
1 FEO 23 
1 FE 1 23 
1FE2 23 
1 FE3 23 
1FE4 7R 
1 FE5 R3 
1FE6 3C 
1 FE7 C2051F 

1FER 3RDD40 
1 FED 30 
1 FEE CRBE1D 
1 FF 1 C3051F 


RST 

RET 

LD 

EX 

LD 

LD 

EX 

RET 

LD 

OR 

DR 

INC 

INC 

INC 

INC 

INC 

LD 

RND 

INC 

DP 

LD 

DEC 

DP 

DP 


10H 

NZ 

HL . C40EEH) 
DE. HL 

HL. C40ERH) 
(40R2H) .HL 
DE. HL 
NZ 

R. (HL) 

R 

NZ. 1FE3H 
HL 

HL - 

HL 

HL 

HL 

R.D 

E 

R 

NZ. 1F05H 

R . C 40DDH ) 

R 

Z. 1DBEH 
1F05H 


; PTZ erhöhen 
;SN-Error ? 

: HL ■ PTZ auf nächsten Befehl 
; DE - HL 

: HL * ZN der Fehlerzeile 
:als aktuelle ZN abspeichern 
: HL - PTZ 

: Fertig bei RESUME 0 
: R ■ nächstes Zeichen im 
; Programmtext 
: Zeilenende ? 

:Nein: weiter bei 1FE3H 
:Da: PTZ auf nächste Zeile 
: erhöhen 


: PTZ +1 

:Fehlerzeile * 65535 ? 


:Nein: PTZ auf nächsten Befehl 
:erhöhen und Programm fortsetze 
:R - STOP-Flag 
:R » 1 ? 

: Da : STOP 

:Nein: Programm beim nächsten 
;Befehl fortsetzen 


ERROR 


1FF4 CD1C2B 
1 FF7 CO 
1 FF8 B7 
1FF9 CR4R1E 
1 FFC 30 
1FFD 87 
1 FFE 5F 
1 FFF FE 20 
2001 3802 
2003 1E26 
2005 C3R219 

RUTO 


CRLL 2B1CH 

RET NZ 

OR R 

DP Z.1E4RH 

DEC R 

RDD R.R 

LD E.R 

CP 2DH 

DR C.2005H 

LD E . 26H 

DP 19R2H 


: DE ® Rrgument CO-255) 
sSN-Error 7 

: Zahl «07 (ERROR 0 7) 

;Da: FC-Error 
:R « R - 1 
:R « R * 2 

:E * (Rrgument - 1) * 2 
: Feh l ercode > 44 7 
:Nein: Fehlercode bearbeiten 
; Da : E * Fehlercode für UE-Erro 
;Zur Fehlerroutine springen 


2008 UOROO 
200B D5 
200C 2817 


LD DE.OOORH ; DE - Default Start-ZN 

PUSH DE :Start-ZN retten 

3R Z.2025H : weit er bei 2025H wenn keine 

iNumme’-n angegeben wurden 



200E CD4F1E 

2011 EB 

2012 E3 

2013 2811 

2015 EB 

2016 CF 

2017 2C 

2018 EB 

2019 2AE440 
20 IC EB 

20 ID 2806 


20 1 F CD5A1E 
2022 C29719 

2025 EB 

2026 7C 

2027 B5 

2028 CA4A1E 
202B 22E440 
202E 32E140 

2031 El 

2032 22E240 

2035 CI 

2036 C3331A 

IF 

2039 CD3723 


203C 7E 
2030 FE2C 
203F CC791D 
2042 FECA 
2044 CC781D 

2047 2B 

2048 E5 

2049 CD9409 
204C El 
204D 2807 


IF-Bedingung erfüllt 

204F D7 
2050 DAC21E 

2053 C35F1D 


CALL 1E4FH 

EX DE. HL 

EX CSPKHL 

3R 2.2026H 

EX OE. HL 

RST 08H 

DEFB 

EX DE. HL 

LD HL.C40E4H) 

EX OE. HL 

3R Z.2025H 


CALL 1E5AH 

3P NZ.1997H 

EX DE. HL 

LO A.H 

OR L 

3P Z.1E4AH 

LD C 40E4H ) . HL 

LD (40E1H3.A 

POP HL 

LD ( 40E2H ) . HL 

POP BC 

3P 1A33H 


CALL 2337H 


LD A.CHL) 

CP 2CH 

CALL Z.1D78H 

CP OCAH 

CALL Z.1D78H 

DEC HL 

PUSH HL 

CALL 0994H 

POP HL 

3R Z.2056H 


RST 10H 

3P C.1EC2H 

3P 1D5FH 


: DE * Angegebene Start -ZN 
: HL « ZN. DE - PTZ 
:Start-ZN retten. HL * Default- 
:Start-ZN 

••Sprung wenn kein Abstand 
: angegeben 
: PTZ zurück nach HL 
:3etzt muß folgen 


; DE » Alter Abstand 

.•Sprung wenn alter Abstand 
: übernommen werden soll 
: ( AUTO XX. ) 

: DE » Abstand 
: SN-Error ? 

; DE - PTZ. HL - Abstand 
: Abstand - 0 ? 

:3a: FC-Error 
;Abstand abspeichern 
: AUTO-Fl ag <> 0 setzen 
:Start-ZN zurück 
.•und abspeichern 
: RET-Adr löschen 
:Zeile eingeben lassen 


: X ■ Ausdruck 

; C X * 0 wenn Bedingung nicht er- 
füllt. sonst X - -1) 

•.nächstes Zeichen holen 
: Ist es ’ . ' ? 

;3a: PTZ erhöhen (wie "THEN') 

: Ist es das 'THEN' -Token ? 

:3a: PTZ erhöhen 
: PTZ -1 
; PTZ retten 
: TEST1 
: PTZ zurück 

: weiter bei 2056H wenn X ■ 0 
; C Bedingung nicht erfüllt) 


: PTZ erhöhen 

: Sprung nach 'GOTO’ wenn Zahl 
: angegeben 

: Sonst Befehlstoken ausführen 



IF-Bedingung nicht erfüllt 


2056 1601 

2058 CD051F 
2058 B7 
205C C8 
205D D7 
205E FE95 
2060 20F6 

2062 15 

2063 20F3 
2065 18E8 


LD D.01H 

CALL 1F05H 

OR A 

RET Z 

RST 10H 

CP 95H 

3R NZ.2058H 

DEC D 

3R NZ.2058H 

3R 204FH 


:D * Zähler für geschachtelte 
: I F THEN ELSE-Bedingungen 
: PTZ auf nächsten Befehl erhöhen 
:Zeilenende erreicht ? 

:3a: Fertig 

Nein: Zeichen nach A holen 
ELSE ' -Token gefunden ? 

:Nein: weitersuchen 
:Schachtelungszähler -1 
:äußerstes 'ELSE' suchen 
:und nachfolgenden Befehl aus- 
: führen 


L PR INT 

2067 3E01 
2069 329C40 

206C C39B20 

PRINT 

206F CDCA41 
2072 FE40 
2074 2019 

PRINT 9 


LD A.01H : A - 01H 

LD C 409CH ) . A Nachfolgende Ausgaben auf 

.•Drucker 

3P 209BH : wei ter bei PRINT 


CALL 41CAH : DOS 

CP 40H .-PRINT 9 ? 

3R NZ.208FH Nein: weiter bei 208FH 


2076 CD012B 
2079 E5 
207A C3D430 
207D 00 
207E E5 
207F 210044 

2082 19 

2083 222040 

2086 CD2A36 
2089 32A640 
208C El 
208D CF 
208E 2C 


CALL 

PUSH 

3P 

NOP 

PUSH 

LD 

ADD 

LD 

CALL 

LD 

POP 

RST 

DEFB 


2B01H 

HL 

30D4H 

HL 

HL . 4400H 
HL. DE 

C4020H1 .HL 

362AH 
C 40A6H ) . A 
HL 
08H 


:Argument holen 
; PTZ retten 

:Argument testen und PTZ zurück 
:CRücksprung erfolgt nach 207EH) 
: PTZ retten 

: HL ■ Startadresse des Bild- 
:schi rmspei chers 

;HL * Startadresse + §-Argument 

:als neue Cursorposition 

: abspeichern 

;neue POS errechnen 

:und abspeichern 

: PTZ zurück 

Nach ’§’ muß folgen 


208F FE23 
2091 2008 
2093 CDA935 
2096 3E30 
2099 329C^0 


CP 23H 

3R NZ.209BH 

CALL 35A9H 

-D ^ . 30H 

-D 409CHD.A 


PRINT * ? 

: Nein : weiter bei 209BH 
3a: Leader und Sync schreiben 
: Ausgabe f lag lur" 'asset * enausgaoe 
serzen 



209B 2B 
209C D7 
2090 CCFE20 

20R0 CR6921 

20R3 FEBF 
20R5 CRBD2C 
20R8 FEBC 
20RR CR3721 
20RD E5 
20RE FE2C 
20B0 CR0821 
20B3 FE3B 
20B5 CR6421 
20B8 CI 
2069 CD3723 
20BC E5 
20BD E7 
20BE 2832 
20C0 CDBDOF 
20C3 CD6528 
20C6 CDCD41 
20C9 2R2141 
20CC 3R9C40 
20CF B7 
2000 FRE920 

2003 2808 


DEC 

RST 

CRLL 

3P 

CP 

DP 

CP 

3P 

PUSH 

CP 

3P 

CP 

DP 

POP 

CPILL 

PUSH 

RST 

DP 

CRLL 

CRLL 

CRLL 

LD 

LD 

OR 

3P 

DP 


HL 

10H 

Z.20FEH 

Z.2169H 

OBFH 

Z.2CBDH 

OBCH 

Z.2137H 

HL 

2CH 

Z.2108H 

3BH 

Z.2164H 
BC - 
2337H 
HL 
20H 

Z.20F2H 

OFBDH 

2865H 

41CDH 

HL . C4121H) 
R. C409CH) 

R 

M.20E9H 
Z . 20DDH 


: PTZ -1 

:nächstes Zeichen nach R 
: PRINT abschließen wenn kein 
:Rrgument gefunden 
:und nächste Rusgabe wieder zum 
:Bi Idschirm leiten 
: ‘US ING '-Token ? 

;3a: weiter bei 2CBDH 
: ' TRBC ' -Token ? 

:3a: weiter bei 2137H 
: PTZ retten 
; ’ . ' gefunden *> 

:3a: weiter bei 2108H 
: * : * gefunden *> 

:3a: weiter bei 2164H 
:Stack berichtigen (PTZ zurück) 
;Rrgument nach X holen 
: PTZ retten 
; TSTTVP 

:weiter bei 20F2H wenn String 
Umwandlung Zahl -> String 
:String übernehmen 
: DOS 

: HL : Vektor 
:Rusgabeflag testen 

:weiter bei 20E9H bei Cassetten- 
: ausgabe 

.•weiter bei 20DDH bei Bildschirm- 
; ausgabe 


Drucke raus gäbe 

20D5 3R9B40 
2008 86 
2009 FE84 
20DB 1809 


LD R.C409BH) 

RDD R.CHL) 

CP 84H 

3R 20E6H 


R * Drucker-POS 
: R ■ Drucker-POS + Stringlänge 
> 1 32 ? 

:3a: neue Zeile beginnen 


B i l dschi r maus gäbe 

2000 3R9D40 

20E0 47 
20E 1 3RR640 
20E4 86 
20E5 B8 
20E6 D4FE20 


LD R.C409DH) 

LD B.R 

LD R.C40R6H) 

RDD R.CHL) 

CP B 

CRLL NC.20FEH 


R - maximale Zeichenzahl pro 
Zeile 
B = R 

R = Bildschirm-POS 
R = Bildschirm-POS + Stringlänge 
> Zeilenlänge ? 

3a: neue Zeile beginnen 
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; Casset t enausgabe 

20E9 CDRR28 

CRLL 

28RRH 

String ausgeben 

20EC 3E20 

LD 

R.20H 

und Leerzeichen zur Trennung 

20EE CD2R03 

CRLL 

032RH 

ausgeben 

20F1 B7 

OR 

R 

Z » 0 Cnächsten Befehl nicht 
ausführen) 

20F2 CCRR28 

CRLL 

Z.28RRH 

String ausgeben wenn das 
Rrgument im STR-Format war 

20F5 El 

POP 

HL 

PTZ zurück 

20F6 C39B20 

DP 

209BH 

Nächstes Rrgument bearbeiten 

; Neue Zeile beginnen 

20F9 3RR640 

LD 

R. C40R6H) 

R = Bildschirm-POS 

20FC B7 

OR 

R 

POS « 0 7 (Neue Zeile schon 
begonnen ?) 

20FD C8 

RET 

Z 

Da: Fertig 

w 20 FE 3E0D 

LD 

R.ODH 

Nein: CR/LF ausgeben 

2100 CD2R03 

CRLL 

032RH 


2103 CDD041 

CRLL 

41D0H 

DOS 

2106 RF 

2107 C9 

XOR 

RET 

R 

R - 0 

: ’ . ' bei PRINT: 

: Cursor auf nächste 

TRB-Position setzen 


2108 CDD341 

CRLL 

41D3H 

DOS 

21 OB 3R9C40 

LD 

R. C409CH) 

Rusgabe auf Casset te ? 

21 OE B7 

OR 

R 


210F F21921 

DP 

P.21 19H 

Nein: weiter bei 2119H 

: Casset tenausgabe 

2112 3E2C 

LD 

R.2CH 

Da: RSC I I -Zeichen aus- 

2114 CD2R03 

CRLL 

032RH 

geben 

2117 1 84B 

DR 

2164H 

Nächstes Rrgument bearbeiten 

PRINT * auf Bildschirm oder 

Drucker 


' : CCursor auf nächste 

TRB-Position setzen) 


21 19 2808 

DR 

Z.2123H 

weiter bei 2123H bei Bildschirm- 
ausgabe 

: Druckerausgabe 

21 1B 3R9B40 

LD 

R. (409BH) 

R * Drucker-POS 

21 IE -E7C 

CP 

70H 

R > 112 ? 

2120 C32B21 

DP 

2 1 29 H 

Da: neue Zeile beginnen 
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Bi l dschi r maus gäbe 


2123 3A9E40 

LD 

A . ( 409EH ) 

A = höchste TAB- Position 

2126 47 

LD 

B. A 

B « A 

2127 3AA640 

LD 

A. C40A6H) 

A = Bildschirm-POS 

212A B8 

CP 

B 

POS schon größer als höchste 
TAB-Pos ition ? 

212B D4FE20 

CfiLL 

NC .20FEH 

Da: neue Zeile beginnen 

212E 3034 

DR 

NC .2164H 

und nächstes Arg bearbeiten 

2130 D60A 

SUB 

OAH 

Durch fortlaufende Subtraktion 

2132 30FC 

DR 

NC .2130H 

eine Division durch 10 
durchführen 

2134 2F 

CPL 


A * -A (da das Ergebnis der 
letzten Subtraktion < Null war. 
A ist jetzt der Rest der 
Division der aktuelle Cursor- 
position durch 10 und dies ist 
gleich dem Abstand zur nächsten 
Tabulatorpos ition) 

2135 1823 

DR 

215AH 

A Leerzeichen ausgeben 

PRINT TRBC 

2137 CD1B2B 

CALL 

2B1BH 

TAB-Arg nach DE holen 

213R CDB230 

CALL 

30B2H 

E * neuer POS-Wert 

213D CF 

RST 

08H 

Klammer geschlossen ^ 

213E 29 

DEFB 

’ ) ' 


213F 2B 

DEC 

HL 

PTZ -1 

2140 E5 

PUSH 

HL 

PTZ retten 

2141 CDD341 

CALL 

41D3H 

DOS 

2144 3R9C40 

LD 

A. C409CH) 

Casset tenausgabe ? 

2147 B7 

0R 

A 


2148 FR4R1E 

DP 

fl. 1E4AH 

Da: FC-Error 

214B CA5321 

DP 

2.2153H 

weiter bei 2153H bei Bildschirm- 
ausgabe 

Drucker aus gäbe 

214E 3A9B40 

LD 

A . ( 409BH ) 

A « Drucker-POS 

2151 1803 

DR 

2156H 

weiter bei 2156H 

Bi Idschirmausgabe 

2153 3AA640 

LD 

A. C40A6H) 

A = Bildschirm-POS 

2156 2F 

CPL 


A « -A 

2157 83 

ADD 

A.E 

A ■ -A + E * E - A 
(Neue POS - alte POS) 

2158 300A 

DR 

NC .2164H 

Fertig wenn gewünschte 
TAB-Position schon erreicht 
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A Leerzeichen ausgeben 


V-/ 


215A 3C 
215B 47 
215C 3E20 
21 5E CD2A03 

2161 05 

2162 20FA 


INC A 

LD B.A 

LD A.20H 

CALL 032AH 

DEC B 

3R NZ.215EH 


: A +1 

: B - Zähler 
Leerzeichen ausgeben 

: Zäh l er -l 
:weiter bis B ■ 0 


: bei PRINT 

: Keinen Ze i l envorschub generieren 


2164 El 

2165 07 

2166 C3A020 


POP HL 

RST 10H 

3P 20A0H 


:PTZ zurück 

;nächstes Zeichen holen 
:nächstes Argument bearbeiten 


: Nächste Ausgabe wieder zum Bildschirm leiten 


2169 3A9C40 
O 216C B7 

2160 00 
216E 00 
216F 00 

2170 AF 

2171 329C40 
2174 CDBE41 
2177 C9 


LD A.C409CH) 

0R A 

N0P 

N0P 

NOP 

XOR A 

LD (409CH1.A 

CALL 41BEH 

RET 


: A ■ 0 

:Ausgabeflag * 0 

: OOS 


: Text ' ^REDO ’ 


2178 3F 

2179 52 
217A 45 
217B 44 
217C 4F 
217D OD 
217E 00 


: Daten bei INPUT oder READ nicht durch 


getrennt 


217F 3ADE40 

2182 B7 

2183 C29119 
2186 CDB130 

2189 B7 
218A 1E2A 
218C CAA219 
218F CI 

2190 217821 
2193 CDA728 
2196 2AE640 
2199 C9 


LD 

OR 

3P 

CALL 

OR 

LD 

3P 

POP 

LD 

CALL 

LD 

RET 


A. C40DEH) 

A 

NZ. 1991H 
30B1H 

A 

E.2AH 
Z. 19A2H 
BC 

HL.2178H 

28A7H 

HL. C40E6H) 


: Feh l er in DATA-Zeile ? 

;Ja: SN-Error 

:Nein: E auf korrekten TAB-Wert 
.•prüfen (???) 

:A * 0 ? (??*>) 

:E = Fehlercode für FD-Error 
:3a: FD-Error 

:Nein: PTZ vom Stack löschen 
:HL * Zeiger auf Text "»REDO' 
:Text ausgeben 
: HL « letzter PTZ-Stand 
: letzten Befehl wiederholen 





:nput 


219A CD2828 
219D 7E 
21 9E CDD641 
21A1 0623 

21 A3 32A940 
21A6 7E 
21A7 2020 


CALL 2828H 

LD A.CHL) 

CALL 41D6H 

SUB 23H 

LD C40A9HD.A 

LD A , ( HL ) 

3R NZ.21C9H 


: ID-Er ror ? 

:A»nächstes Zeichen 
: DOS 

: Zeichen = ’#’ 7 
; C 3 a : A * OOH wegen SUB !) 
sFlag = 0 wenn INPUT# 

: A = Zeichen 
: Nein : weiter bei 21C9H 


INPUT# 


21A9 CDAF35 

21 AC E5 
21 AD 06FA 
21 AF 2AA740 
21B2 CDED01 
21BS 77 
21B6 23 
21B7 FEOD 
21B9 2802 
21BB 10F5 
21BD 2B 
21 BE 3600 
21C0 00 
21C1 00 
21C2 00 
21C3 2AA740 
21C6 2B 
21C7 1822 


CALL 

PUSH 

LD 

LD 

CALL 

LD 

INC 

CP 

3R 

D3NZ 

DEC 

LD 

NOP 

NOP 

NOP 

LD 

DEC 

3R 


35AFH 

HL _ 

B.OFAH 

HL. C40A7H) 

01EDH 

CHL) .A 

HL 

ODH 

Z.21BDH 

21B2H 

HL 

C HL ) .OOH 


;Zahl auswerten. 

;Leader & Sync suchen 
: PTZ retten 

;B ■ 250 C Record-Längel 

: HL ■ Zeiger auf Zeilenbuffer 

:Ein Byte lesen 

:und im Buffer ablegen 

: Zeiger +1 

: Recordende 

:3a: weiter bei 21BDH 

, -Nein: Nächstes Byte lesen 

:Zeiger -1 

: letztes Byte durch OOH ersetzen 


HL.C40A7H) : HL * Zeiger auf ZeilenbufTer 

HL ; Zeiger -1 

21EBH ;Daten auswerten 


Normales INPUT 


21C9 01DB21 
21CC C5 
21CD FE22 
21CF CO 
2 IDO CD6628 
21D3 CF 
21D4 3B 
21D5 E5 
21D6 CDAA28 
21D9 El 
21DA C9 


LD BC.21DBH 

PUSH BC 

CP 22H 

RET NZ 

CALL 2866H 

RST 08H 

DEFB ' : * 

PUSH HL 

CALL 28AAH 

POP HL 

RET 


:RET-Adr auf 21DBH setzen 


:Text vorher ausgeben ? 
:Nein: weiter bei 21BDH 
:3a: Text übernehmen 
:Danach mu0 folgen 


: PTZ retten 
:Text ausgeben 
:PTZ zurück 
: wei ter bei 21BDH 


2 1 DB E5 
21DC CDB31B 


PUSH HL : PTZ retten 

CALL 1BB3H ; ' ** ' ausgeben und zur Zeilen- 

.•eingabe SDrmgen 





21DF CI 
21 EO DABE1D 

21E3 23 
21E4 7E 
21E5 B7 

21E6 2B 
21E7 C5 
21E8 CA041F 


21EB 362C 

21ED 1805 

: READ 

21EF E5 
2 1 FO 2AFF40 
21 F3 F6AF 
»21 F4 AF 
21 F5 32DE40 
21F8 E3 
21 F9 1802 


POP BC 

3P C.1DBEH 

INC HL 

LD A.CHL) 

OR R 

DEC HL 

PUSH BC 

OP Z.1F04H 


LD CHD.2CH 

OR 2 1 F4H 


PUSH HL 

LD HL.C40FFH) 

OR OAFH 

XOR A 

LD C40DEH1.A 

EX C SP) . HL 

3R 21FDH 


Nächste Daten übernehmen 
DATA-Zeiger = Zeiger auf die Daten 
PTZ = Zeiger auf die Variablen 


21 FB CF 
21 FC 2C 
21 FD CD0D26 


RST 08H 

DEFB 2CH 

CALL 260DH 


2200 E3 

2201 D5 

2202 7E 

2203 FE2C 
2205 2826 


EX (SP). HL 

PUSH DE 

LD A.CHL) 

CP 2CH 

OR Z.222DH 


: Kein Trennzeichen ('.') gefunden 


2207 3ADE40 
220A B7 
220B C29622 


LD A.C40DEH) 

OR A 

OP NZ.2296H 


220E 3AA940 

2211 B7 

2212 1E06 
2214 CAA219 
2217 3E3F 
2219 CD2A03 
22 1 C CDB31B 


LD A.C40A9H) 

OR A 

LD E.06H 

OP Z.19A2H 

LD A.3FH 

CALL 032AH 

CALL 1BB3H 


; BC - PTZ 

:Nach STOP springen wenn Break 
.•gedrückt wurde 
: Zeiger +1 

serstes Zeichen holen 
: Ist es OOH (wurde nur 'RETURN' 
: gedrückt *>) 

:Zeiger -1 
: PTZ retten 

:0a: PTZ zur nächsten Anweisung 
: erhöhen und Variablen 
unverändert lassen 
;Nein: als Trennung in den 

:Buf fer setzen 
: wei ter bei 21F4H 


: PTZ retten 

: HL * DATA-Zeiger 

: A <> 0 (bei READ D 

: A * 0 (bei INPUT 5 

:Flag abspeichern 

: PTZ zurück. DATA-Zeiger retten 

:weiter bei 21FDH 


: ' . ' als Trennung ? 

: Adresse der nach READ bzw. INPUT 
:angegebenen Variablen ermitteln 
: PTZ retten. DATA-Zeiger zurück 
: Var iabl enadresse retten 
:A = Datenzeichen 
:Trennzeichen gefunden ? 

:0a: weiter bei 222DH 


:Wird gerade eine READ- 
:Anweisung bearbeitet 7 
:0a: DATA-Zeiger auf nächste 
: DATA-Zei l e erhöhen 
: INPUT# •* 

:E ■ Fehlercode für OD-Error 
:0a: Fehler erzeugen 
••Fragezeichen ausgeben 

iund Eingabe fehlender Daten 
: verlangen C ’ ?? ' ) 
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22 1 F Dl 

POP 

DE 

2220 CI 

POP 

BC 

2221 DABE1D 

3P 

C. 1DBEH 

2224 23 

INC 

HL 

2225 7E 

LD 

A. (HL) 

2226 B7 

0R 

A 

2227 2B 

DEC 

HL 

2228 C5 

PUSH 

BC 

2229 CA041F 

3P 

Z. 1F04H 

222C D5 

PUSH 

DE 

Daten übernehmen 



HL * DATA-Zeiger 

auf Trennzeichen C- . ' 

2220 CDDC41 

CALL 

41DCH 

2230 E7 

RST 

20H 


2231 F5 

PUSH 

AF 

2232 2019 

3R 

NZ.224DH 

Daten in St r ingvar i abl e übernehmen 

2234 D7 

RST 

10H 

2235 57 

LD 

D.A 

2236 47 

LD 

B.A 

2237 FE22 

CP 

22H 

2239 2805 

3R 

Z.2240H 

223B 163A 

LD 

D.3AH 

223D 062C 

LD 

B.2CH 

223F 2B 

DEC 

HL 

2240 CD6928 

CALL 

2869H 

2243 Fl 

POP 

AF 

2244 EB 

EX 

DE. HL 

2245 215A22 

LD 

HL.225AH 

2248 E3 

EX 

(SP) .HL 

2249 D5 

PUSH 

DE 

224A C3331F 

3P 

1F33H 

Daten in numerische 

Variable 

übernehmen 

224D D7 

RST 

10H 

224E Fl 

POP 

AF 

224 F F5 

PUSH 

AF 

2250 014322 

LD 

I 

u 

2253 CS 

PUSH 

BC 

2254 DA6C0E 

3P 

C . 0E6CH 

2257 D265CE 

3P 

NC . 0E6SH 


; Var i ab l enadr esse zurück 
:PTZ zurück 

.-Nach STOP springen wenn Break 

:gedrückt wurde 

: Zeiger +1 

:A = erstes Zeichen 

: wurde nur -RETURN' gedrückt 

: C erstes Zeichen * 00H) 

.•Zeiger -1 
: PTZ retten 

; Ja : PTZ auf nächsten Befehl 
:erhöhen und Variablen belassen 
••Nein: Variablenadresse retten 


: OOS 

JTSTTYP. Typ der Variablen, die 
:die Daten übernehmen soll. 

: testen 

: VT - 3 retten 

:Sprung bei numerischen Variablen 


:Erstes Zeichen nach R 

:D * B * erstes Zeichen 
:Ist der String durch 
: begrenzt -> 

:3a: B ■ D ■ Stringende 

.•Nein: Stringende kann ( 3AH) 

: oder C2CH) sein 

; Zeiger -1 

:String übernehmen 

; VT - 3 zurück 

:DE * DRTA-Zeiger 

: RET-Adr auf 225AH setzen 

: HL « Variablenadresse 

: DATA-Ze i ger retten 

: Neuen wert in Variable kopieren 

:und weiter bei 225AH 


:Zeiger auf erstes Zeichen setzen 
: A ■ VT - 3 

: RET-Rdr auf 2243H setzen 
’.ger: ;n /ar'.aole kooieren) 

: INT- oder SNQ-wert übernehmen 
;DBL-Wert übernehmen 
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Fortsetzung nach Datenübernahme 


225R 2B 
225B DT 
225C 2805 
225E FE2C 
2260 C27F21 

2263 E3 

2264 2B 

2265 D7 

2266 C2FB21 

2269 Dl 
226R 00 
226B 00 
226C 00 
226D 00 
226E 00 
226F 3R0E40 

2272 B7 

2273 EB 

2274 C2961D 

2277 D5 

2278 CDDF41 
227B 86 
227C 218622 
227F C4R728 

2282 El 

2283 C36921 

Text "»Extra ignored 

2286 3F 

2287 45 

2288 78 

2289 74 
2288 72 
228B 61 
228C 20 
228D 69 
228E 67 
228F 6E 

2290 6F 

2291 72 

2292 65 

2293 64 

2294 0D 

2295 00 


DEC HL 

RST 10H 

3R 2 . 2263H 

CP 2CH 

3P NZ.217FH 

EX (SP). HL 

DEC HL 

RST 10H 

3P N2.21FBH 

POP DE 

NOP 

NOP 

NOP 

NOP 

NOP 

LD R.C40DEH) 

OR R 

EX DE. HL 

3P NZ.1D96H 

PUSH DE 

CRLL 410FH 

OR (HL) 

LD HL.2286H 

CRLL NZ.28R7H 

POP HL 

3P 2169H 


: PTZ -1 

: Ende der Datenzeile erreicht *» 
:3a: weiter bei 2263H 
{Nächste Daten mit ' ' getrennt *> 

:Nein: Fehlerbehandlung bei 217FH 
:DRTR-Zeiger retten. HL - PTZ 
: PTZ -1 

: RERD- bzw. INPUT-Rnweisung be- 
endet 7 

{Nein: nächste Variable 
: bearbeiten 

:3a: DRTR-Zeiger zurück 


{Wurde eine RERD-Rnweisung 
{bearbeitet 7 

:DE - PTZ. HL ■ DRTR-Zeiger 
:3a: DRTR-Zeiger zurückschreiben 
{Nein: PTZ retten 
:DOS 

{Noch Daten im BufTer 7 
{HL : Text "»Extra ignored’ 

:3a: Text ausgeben 
:PTZ zurück 

{Nächste Rusgabe auf Bildschirm 
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Keine Datentrennung in der aktuellen DATA-Zeile gefunden 
HL auf nächste DATA-Zeile erhöhen 


2299 B7 
229A 2012 
229C 23 
2290 7E 
229E 23 
229F B6 
22A0 1E06 
22A2 CAA219 
22A5 23 
22A6 5E 
22A7 23 
22A8 56 
22A9 EB 
22AA 22DA40 
22AD EB 
22AE D7 
22AF FE88 


22B1 20E3 
22B3 C 32022 


NEXT 

2236 110000 
22B9 C40026 


22BC 22DF40 
22BF CD3619 

22C2 C29D19 


22C5 

22C6 

22C9 

22CA 

22CB 

22CC 

22CD 

22CE 

22CF 

2200 

2201 


CALL 

0R 

DR 

INC 

LD 

INC 

OR 

LO 

DP 

INC 

LD 

INC 

LD 

EX 

LD 

EX 

RST 

CP 

DR 

DP 


1F05H 

A 

NZ.22AEH 

HL 

A , ( HL ) 

HL 

(HL) 

E.06H 
Z. 19A2H 
HL 

E. (HL) 

HL - 
0. (HL) 

DE. HL 

(40DAH) .HL 
DE. HL 
10H 
88H 

NZ.2296H 

222DH 


; HL bis zum Befehls- bzw. 
;Zeilenende erhöhen 
;Zeilenende erreicht ° 

: Nei n : weiter bei 22AEH 
;Da: Programmende erreicht 7 
: ( Zei l enpointer ■ OOOOH ?) 


; E * Fehlercode für OD-Error 
:Da: Fehler erzeugen 
:Nein: DE * Zeilennummer 


: Zei l ennummer der DATA-Zeile 
: abspeichern 

: Wurde eine DATA-Zeile gefunden 7 
:Ist das erste Zeichen ein 
; 'DATA '-Token 7 
:Nein: weitersuchen 
:Da: HL = neuer DATA-Zeiger 


LD 

CALL 

LD 

CALL 

DP 

LD 

LD 

PUSH 

LD 

INC 

PUSH 

PUSH 

LD 

INC 

OR 

DP 


DE . OOOOH 

NZ.260DH 

( 40DFH ) .HL 
1936H 

NZ. 199DH 

SP. HL 
(40E8H) .HL 
DE 

A. (HL) 

HL 

AF 

DE 

A. (HL) 

HL 

A 

M.22EAH 


:0ef aul tadresse . wenn keine 
{Variable angegeben wurde 
{Adresse ermitteln, wenn ein 
{Variablenname angegeben wurde 
{ PTZ abspeichern 

{FOR-Stack mit VARPTR » DE suchen 
{(nächstes FOR-Stack wenn DE * 0) 
{NF-Error wenn FOR-Stack nicht 
: gefunden 

: SP ■ FOR-Stack Zeiger 
{SP-Wert abspeichern 
{Variablenadresse retten 
:A = Step-SGN 
{Zeiger +1 
{Step-SGN retten 
{Variablenadresse retten 
{Variablentyp holen 
{Zeiger +1 

! Sch l e i f envar iabl e Integer ? 

{Da{ weiter bei 22EAH 


182 



für SNG-Var i ab l e 




: NEXT 


2204 CDB109 

22D7 E3 
22D8 E5 

22D9 CD0B07 

22DC El 
22DD CDCB09 

22E0 El 

22E1 CDC209 
22E4 E5 
22E5 CD0C0A 

22E8 1829 

NEXT für INT-Vari 


CALL 09B1H 

EX CSPKHL 

PUSH HL 

CALL 070BH 

POP HL 

CALL 09CBH 

POP HL 

CALL 09C2H 

PUSH HL - 

CALL OAOCH 

3R 2313H 


22EA 

22EB 

22EC 

22ED 

22EE 

22EF 

22F0 

22F1 

22F2 

22F3 

22F4 

22F5 

22F6 

22F7 

22F8 

22F9 


23 

23 

23 

23 

4E 

23 

46 

23 

E3 

5E 

23 

56 

E5 

69 

60 


INC 

INC 

INC 

INC 

LO 

INC 

LO 

INC 

EX 

LD 

INC 

LD 

PUSH 

LD 

LD 

CALL 


HL 

HL 

HL 


HL 

C. CHL) 
HL 

B. CHL) 
HL 

CSP) .HL 
E . C HL ) 
HL 

0. CHL) 
HL 


0BD2H 


22FC 3AAF40 
22FF FE04 
2301 CAB207 

2304 EB 

2305 El 

2306 72 

2307 2B 

2308 73 

2309 El 
230A 05 
230B 5E 
230C 23 
2300 56 
230E 23 
230F E3 


LD A.C40AFH) 

CP 04H 

OP 2.07B2H 

EX DE. HL 

POP HL 

LD ( HL ) . D 

DEC HL 

LD CHL) . E 

POP HL 

PUSH DE 

LD E.CHL) 

INC HL 

LD D. CHL) 

INC HL 

EX C SP ) . HL 


; X « BCDE = CHL) CStepwert nach X 
: ho len) 

: Zei ger retten. HL - VARPTR 
:Adresse der Schleifenvariablen 
:retten 

;X * X + CHL) CSchlei fenvar iable 
:um Stepwert erhöhen) 

:Adresse zurück 

; C HL ) ■ X C neuen Wert in Variable 
: kopieren ) 

:Zeiger zurück CZeigt jetzt auf 
.-den Endwert) 

: BCDE » CHL) * Endwert 
:Zeiger retten 

: CP X . BCDE CSchlei fenvariable mit 
;Endwert vergleichen) 

: weit er bei 2313H 


:Die ersten 4 Bytes des FOR- 
:Stacks sind unbenutzt 

:BC * Stepwert 


: Zeiger retten. HL » Adresse 
: DE * Schleifenwert 


:Adresse+l retten 
: HL * Stepwert 

:X * HL ■ HL + DE CSchleifen- 
:variable um Stepwert erhöhen) 

: Über lauf *> 

: Wurde der VT auf SNG geändert ? 

:0a: OV-Error 

: DE « Neuer Schleifenwert 

:Adresse+l zurück 

: Neuen Schleifenwert zurück- 

:schreiben 

:Zeiger zurück 
:Schlei fenwert retten 
: DE » Endwert 


;Zeiger retten. HL * Schteifen- 
: wer t 
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2310 CD390A 


CALL 

2313 El POP 

2314 CI POP 


2315 90 SUB 

2316 C0C209 CALL 


2319 2809 3R 

Schleife nicht beendet 

231B EB EX 

23 IC 22A240 LO 

23 1 F 69 LD 

2320 60 LD 

2321 C31A1D 3P 


Schleife beendet 


2324 F9 LD 

2325 22E840 LD 

2328 2ADF40 LD 

232B 7E LD 

232C FE2C CP 

232E C21E1D 3P 

2331 D7 RST 

2332 CDB922 CALL 


0A39H 

HL 

BC 


B 

09C2H 

Z.2324H 


CP HL. DE (Schlei Tenwert mit End- 
wert vergleichen) 

Zeiger zurück 
B - Step-SGN: 

B = 01H: Schleife beendet wenn 

Schleifenwert > Endwert 
B * FFH : Schleife beendet wenn 

Schleifenwert < Endwert 

A « FFH: Schlei fenwert < Endwert 
A * OOH : Schleifenwert = Endwert 
A « 01H : Schleifenwert > Endwert 
Schleife beendet ? 

BCDE - CHL) 

(BC « ZP auf Schleifenanfang. 

DE = Zeilennummer) 

3a: weiter bei 2324H 


DE. HL : HL = Zeilennummer 

( 40A2H ) . HL :Als aktuelle ZN abspeichern 
L.C : HL * Zeilenpointer 


1D1AH 


;FOR-Stack wieder aufbauen und 
;Programm ab CHL) fortsetzen 


SP. HL 

C40E8H) .HL 
HL. ( 40DFH ) 
A. CHL) 

2CH 

NZ. 1D1EH 

10H 

22B9H 


:SP = Stackende (aktuelles 
:FOR-Stack gelöscht) 

:Neuen SP abspeichern 
: HL - PTZ 

:nächstes Zeichen holen 
:Ist es ein Komma 
:Nein: Programm ab CHL) fort- 
: setzen 

:3a: PTZ auf nächsten Variablen- 
:namen erhöhen 

: und nächste Variable bearbeiten 
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: Hl ammer ausdruck bearbeiten und Ergebnis in X ablegen 

2335 CF RST 08H : PTZ muß auf '(' stehen 

2336 28 DEFB ' £' 


: Rusdruck bearbeiten und Ergebnis in X ablegen 


2337 

2B 

DEC 

HL 

: PTZ -1 

2338 

1600 

LD 

D.OOH 

: Pr ioritätsfl ag ■ 0 

233R 

05 

PUSH 

OE 

:Flag retten 

233B 

0E01 

LD 

C.01H 

: Speicherprüf ung : noch 2 

2330 

CD6319 

CRLL 

1963H 

: f rei ? 

2340 

CD9F24 

CRLL 

249FH 

:1. Rrgument holen 

2343 

22F340 

LD 

( 40F3H ) .HL 

: PTZ abspeichern 

2346 

2RF340 

LO 

HL.C40F3H) 

; PTZ zurückholen 

2349 

CI 

POP 

BC - 

: Pr ior i tätsf l ag zurück 

234R 

7E 

LD 

R. CHL) 

:R = Token nach Rrgument 
: (Operatorcode) 

234B 

1600 

LD 

D.OOH 

: Operator f l ag = 0 

234D 

D6D4 

SUB 

0D4H 

;Vergleichsoperator *> 

234F 

3813 

CR 

C.2364H 

: Ne i n : weiter bei 2364H 

2351 

FE03 

CP 

03H 

:CTokenwert zwischen D4H 
:D7H 7) 

2353 

300F 

CR 

NC .2364H 

:Nein: weiter bei 2364H 


: Vergleichsoperatoren verarbeiten 


<> ) 


2355 FE01 
2357 17 


2358 RR 


2359 BR 
235R 57 
235B DR9719 

w 235E 220840 

2361 07 

2362 1 8E9 


CP 

RLR 

XOR 


CP 

LD 

CP 

LO 

RST 

CR 


01H 


0 


0 

D.R 

C. 1997H 

C40D8H) .HL 

10H 

234DH 


CY * 1 wenn *<* gefunden 
'<* : R ■ 01 (Bit 0 gesetzt) 

*«* : R - 02 (Bit 1 gesetzt) 

'>' : R - 04 CBit 2 gesetzt) 

R mit letztem Operator ver- 
knüpfen. R ■ 00 wenn zweimal 
der gleiche Operator angegeben 
wurde 

CY » 1 wenn R - 0 ! ! 

0 = neuer Operatorcode 

SN-Error wenn Operator doppelt 

angegeben 

PTZ abspeichern 

Nächsten Operator holen 

Noch ein Vergleichsoperator ? 
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Hein Vergleichsoperator gefunden 


2364 78 

2365 87 

2366 C2EC23 

2369 7E 
2368 22D840 
2360 06CD 
236F D8 

2370 FE07 

2372 00 

2373 5F 

2374 388F40 

2377 0603 

2379 B3 

2378 C88F29 

Prior i tatsprüf ung 
237D 219818 

2380 19 

2381 78 

2382 56 

2383 B8 

2384 00 


2385 C5 

2386 014623 

2389 C5 
2388 78 
238B FE7F 
2380 C80423 

2390 FE51 
2392 D8E123 


LD 

0R 

3P 

LD 

LD 

SUB 

RET 

CP 

RET 

LD 

LD 

SUB 

OR 

3P 


8 . D 
8 

NZ.23ECH 
8. (HL) 
C40D8H) .HL 
OCDH 
C 

07H 

NC 
E . 8 

8. (408FH) 
03H - 
E 

Z.298FH 


:8 * Operatorflag 

[Wurden Vergleichsoperatoren 

[gefunden ? 

:3a: weiter bei 23ECH 
[Nein: 8 = Operatorcode 
:PTZ abspeichern 
: Verknüpf ungscode gefunden ? 
:Nein: Fertig 
:C /. 

.-Hochpfeil. 8ND. OR) ? 

:Nein: Fertig 

:DE - Codeofrset (0-'+'. 6«'0R') 
; 8 ■ VT (des 1. 8rgu*ents) 
[Stringargument ? 

:und Code ■ '+’ ? 

:3a: Stringaddition bei 298FH 


LD HL.1898H 

8DD HL. DE 

LD 8 . B 

LD D.(HL) 

CP D 

RET NC 


PUSH BC 

LD BC.2346H 

PUSH BC 

LD 8 . D 

CP 7FH 

3P Z.23D4H 

CP 5 1H 

3P C.23E1H 


: HL * Zeiger auf Prioritäts- 
: tabel l e 

[Offset addieren 
:R ■ letzte Priorität 
:(Ist am 8nfang = 0 !) 

: D - aktuelle Priorität 
[Beide Pr ior i t ät swer t vergleichen 
[Zwischenergebnis zuerst be- 
rechnen wenn der alte Operator 
[höhere Priorität hatte 
[Letzte Priorität retten 
: RET-Bdr auf 2346H setzen 

:8 ■ neue Priorität 
[Potenzberechnung ? 

:3a: weite- bei 23D4H 

[Logische Verknüpfung ( 8ND . OR) ? 

:3a: weiter bei 23E1H 
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Operatoren *+* 

1. Argument Cbzi 


und */* bearbeiten 
Zwischenergebnis) im Stack ablegen 


2395 212141 

2398 B7 

2399 399F40 
239C 3D 
2390 30 
239E 30 
239F C9F609 


2392 4E 

2393 23 

2394 46 

2395 C 5 

2396 F9C523 
2399 23 
2399 4E 
2398 23 
239C 46 
2390 C5 
239E F5 
239F B7 
23B0 E2C423 
2393 Fl 
23B4 23 
23B5 3803 
23B7 211D41 
23B9 4E 
23BB 23 
239C 46 
23B0 23 
23BE C5 
23BF 4E 
23C0 23 
23C1 46 
23C2 C5 
23C3 06F1 

*23C4 Fl 

23C5 C603 
23C7 4B 
23C8 47 
23C9 C5 
23C9 010624 
23C0 C5 
23CE 29D840 
220: 333923 


LD HL.4121H 

OR 9 

LD 9.C409FH) 

DEC 9 

DEC 9 

OEC 9 

OP Z.09F6H 


LD C.(HL) 

INC HL 

LD B.CHL) 

PUSH BC 

OP M.23C5H 

INC HL 

LD C.CHL) 

INC HL 

LD B.CHL) 

PUSH BC 

PUSH 9F 

OR 9 

OP P0.23C4H 

POP 9F 

INC HL 

OR C.23B9H 

LD HL.4UDH 

LD C.CHL) 

INC HL 

LD B.CHL) 

INC HL 

PUSH BC 

LD C.CHL) 

INC HL 

LD B.CHL) 

PUSH BC 

LD B.0F1H 

POP 9F 

9DD 9 . 03H 

LD C.E 

LD B . 9 

PUSH BC 

LD BC.2406H 

PUSH BC 

LO HL.C40C8H) 

OP 2239H 


: HL * Zeiger auf X 
: CV * 0 
:9 * VT 
: 9 -3 

: Ist X im STR-Format ? 

:0a: TM-Error C Für Strings ist 
:nur erlaubt und dieser 

:Operator wurde bereits 
:abgef ragt ) 

; BC « INT-Wer t 


INT- Wer t ins Stack 

Fertig wenn X im INT-Format 

BC * MSBs des SNG-Werts 


:MSBs des SNG-Werts ins Stack 
: VT-3 retten 

: X im SNG- Format ? CCY - 0) 

:0a: Fertig 

:Nein: VT-3 zurück 

:Sprung wird nie ausgeführt 
: LSBs des DBL-Werts ins Stack 
: retten 


: VT-3 zurück Cbei INT- oder SNG- 
; Wert ) 

: 9 +3 

:C * Offset des Operatorcodes 
:B * VT 

:Beides ins Stack retten 
: RET-9dr auf 2406H setzen 

; PTZ zurück nach HL 
.•Nächstes Argument bearbeiten 



Potenzfunktion berechnen 


2304 

CDB10A 

CALL 

0AB1H 

: X * CSNG (X) 

23D7 

CDA409 

CALL 

09A4H 

: ( SP) * X 

23DA 

01F213 

LD 

BC . 13F2H 

:BC = Adresse der Potenzfunktion 

23DD 

167F 

LD 

D.7FH 

:D » Prioritätscode 

230F 

18EC 

3R 

23CDH 

:2. Argument holen und Funktion 
: berechnen 

Logische Verknüpfung 

bearbeiten 


23E1 

05 

PUSH 

DE 

: Pr ioritätscode retten 

23E2 

CD7F0A 

CALL 

0A7FH 

: HL « X - CINTCX) 

23E5 

Dl 

POP 

DE 

:Prioritätscode zurück 

23E6 

E5 

PUSH 

HL 

jl. Argument retten 

23E7 

01E925 

LD 

BC.25E9H 

: BC * Adresse der AND/OR Routine 

23EA 

18E1 

3R 

23CDH 

:2. Argument holen und Ver- 
knüpfung bearbeiten 

Vergl eichsoperatoren 

bearbeiten 


23EC 

78 

LD 

A.B 

: A - Prioritätscode 

23ED 

FE64 

CP 

64H 

:Hatte der letzte Operator eine 
;höhere Priorität ? 

23EF 

DO 

RET 

NC 

:3a: Zwischenergebnis berechnen 

23F0 

C5 

PUSH 

BC 

.•Nein: Pr ior i t ät scode retten 

23F1 

D5 

PUSH 

DE 

:Operatorcode retten 

23F2 

1 10464 

LD 

DE.6404H 

:D = aktuelle Priorität. 


:E = Offset für Grundrechenarten 
.•(siehe Tabellen ab 18ABH) 


23F5 

23F8 

21B825 

E5 

LD 

PUSH 

HL.25B8H 

HL 

; RET-Adr auf 25B8H setzen 

23F9 

E7 

RST 

20H 

: TSTTVP , String *> 

23FA 

C29523 

3P 

NZ.2395H 

jNein: Zwischenergebnis ins Stac) 
; retten 

23FD 

2A2141 

LD 

HL . C4121H) 

:3a: HL - Vektoradresse 

2400 

E5 

PUSH 

HL 

jAdresse retten 

2401 

018C25 

LD 

BC.258CH 

: RET-Adr auf 258CH CString- 
:vergleich) setzen 

2404 

18C7 

3R 

23CDH 

:2. Argument holen und Funktion 


: aus führen 



Zwischenergebnis berechnen 

1. Wert ist im Stack, 2. Wert ist in X 


2406 Ci 

POP 

BC 

2407 79 

LO 

A.C 

2408 32B040 

LD 

C40B0H) , A 

240B 78 

LD 

A.B 

240C FE08 

CP 

08H 

240E 2828 

3R 

Z.2438H 

2410 3AAF40 

LD 

A. C40AFH) 

2413 FE08 

CP 

08H 

2415 CA6024 

3P 

Z.2460H 

2418 57 

LD 

D.A 

2419 78 

LD 

A.B 

24 1 A FE04 

CP 

04H 

24 IC CA7224 

3P 

Z . 24-72H 

24 1F 7A 

LD 

A.D 

2420 FE03 

CP 

03H 

2422 CAF60A 

3P 

Z.0AF6H 

2425 D27C24 

3P 

NC . 247CH 

1. oder 2. Argument 

im INT-I 

? ormat 

2428 21BF18 

LD 

HL. 18BFH 

242B 0600 

LD 

B.OOH 

242D 09 

ADD 

HL . BC 

242E 09 

ADD 

HL . BC 

242F 4E 

LD 

C. CHL) 

2430 23 

INC 

HL 

2431 46 

LD 

B. CHL) 

2432 01 

POP 

DE 

2433 2A2141 

LD 

HL. C4121H) 

2436 C5 

PUSH 

BC 

2437 C9 

RET 


1. Argument im DBL- 

Format 


2438 C0DB0A 

CALL 

OADBH 

243B CDFC09 

CALL 

09FCH 

243E El 

POP 

HL 

243F 221F41 

LD 

C41 1FH) .HL 

2442 El 

POP 

HL 

2443 221041 

LD 

C 4 1 1DH ) .HL 

2446 CI 

POP 

BC 

2447 Dl 

POP 

DE 

2448 CDB409 

call 

09B4H 

244B CDDB0A 

CALL 

OADBH 


:VT des 1. Arguments zurück 
:A = Offset des Operatorcodes 
:Codeoffset abspeichern 
: A » VT 

jl. Argument im DBL-Format ? 
:3a: weiter bei 2438H 
:A = VT des 2. Arguments 
:2. Argument im DBL-Format ? 
:3a: weiter bei 2«60H 
:D = VT des 2. Arguments 
:A = VT des 1. Arguments 
: 1 . Argument im SNG-Format ? 
:3a: weiter bei 2472H 
:A = VT des 2. Arguments 
:2. Argument im STR-Format ? 
:3a: TM-Error 

.•weiter bei 247CH wenn das 
:2. Argument im SNG-Format ist 


: HL ■ Zeiger auf die Sprung- 
Tabelle der Grundrechenarten 
:im INT-Format 
:BC = Operatoroffset 
:Offset 2 mal addieren 
:C2 Byte Adresse) 

:Adresse nach BC laden 


:DE * i. Argument 
Hl * 2. Argument 
:Adresse ins Stack 
und Routine ausführen 


:X - CDBLCX) C2. Argument ins 
: DBL-For mat umwandeln) 

:Y « X C 2 . Argument nach V) 

;1. Argument aus dem Stack holen 
rund nach X laden 


: X - BCDE 

:X * CDBLCX) (1. Argument ins 
:DBL-Format umwandeln) 



244E 

21 AB 18 


LD 

HL. 18ABH 

HL = Zeiger auf die Sprung- 
tabelle der Grundrechenarten 
im DBL-Format 

2«51 

3AB040 


LD 

A. (40B0H) 

A * Operatorcodeoffset 

2454 

07 


RLCA 


* 2 (2 Bytes Adresse) 

2455 

C5 


PUSH 

BC 

BC retten 

2456 

4F 


LD 

C.A 

BC - Tabellenorfset 

2457 

0600 


LD 

B.OOH 


2459 

09 


ADO 

HL . BC 

Offset addieren 

245A 

CI 


POP 

BC 

BC zurück 

245B 

7E 


LD 

A. (HL) 

HL * Routinenadresse 

245C 

23 


INC 

HL 


245D 

66 


LD 

H. (HL) 


245E 

6F 


LD 

L.A 


245F 

E9 


3P 

(HL) 

Routine ausführen 

2. Argument 

im 

DBL-Format 



2460 

C 5 


PUSH 

BC 

VT um Offset retten 

2461 

CDFC09 


CALL 

09FCH 

Y ■ X (2. Argument nach Y) 

2464 

Fl 


POP 

AF 

VT zurück 

2465 

32AF40 


LD 

( 40AFH ) . A 

VT abspeichern 

2468 

FE04 


CP 

04H 

1. Argument im SNG-Format ? 

246A 

28DA 


3R 

Z.2446H 

3a: 1. Argument vom Stack holen 
und ins DBL-Format bringen 

246C 

El 


POP 

HL 

Nein: 1. Argument ist im 
: INT-Format : HL = 1 . Argument 

246D 

222141 


LD 

(4121H) .HL 

; 1 . Argument nach X bringen 

2470 

1809 


3R 

244BH 

:und ins DBL-Format umwandeln 

1 . Argument 

im 

SNG-Format 



2472 

CDB10A 


CALL 

0AB1H 

;X * CSNG(X) (2. Argument ins 
:SNG-Format umwandeln) 

2475 

CI 


POP 

BC 

il. Argument aus dem Stack 

2476 

Dl 


POP 

DE 

iholen 

2477 

21B518 


LD 

HL. 18B5H 

:HL » Zeiger auf die Sprung- 
: tabel le 

247A 

1805 


3R 

2451H 

[Funktion berechnen 

2. Argument 

im 

SNG-Format. 1. 

Argument im INT-Format 

247C 

El 


POP 

HL 

1 . Argument zurück 

2470 

CDA409 


CALL 

09A4H 

(SP) = X (2. Argument ins Stack 
retten) 

2480 

CDCFOA 


CALL 

OACFH 

X - CSNG(HL) 

24 53 

CDBF09 


CALL 

09BFH 

BCDE * X ■ 1 . Argument 

2486 

El 


POP 

HL 

1. Argument aus dem Stack 

2487 

222341 


LD 

(4123H) .HL 

nach X bringen 

248A 

z ; 


POP 

HL 


248B 

222 1 4 1 


ld 

i y 

X 

X 

r 


L-ZE 

18E7 


:r 

24”h 

weiter bei 2477H 
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IDIV: X - DE / HL 

Dividiert zwei Integer-Zahlen mit Ergebnis im SNG-Format 
I: DE * Dividend 
HL • Divisor 
0: X ® Quotient 


2490 E5 

2491 EB 

2492 CDCFOA 

2495 El 

2496 CDA409 
2499 CDCFOA 
249C C3A008 


PUSH HL 

EX DE. HL 

CALL OACFH 

POP HL 

CALL 09A4H 

CALL OACFH 

OP 08A0H 


:Divisor retten 
: HL • Dividend 

: X = CSNGC DE ) CX *= Dividend) 
:Dividend zurück 
: C SP ) - X (Dividend in Stack) 

: X - CSNGC HL ) CX = Divisor) 

: X - CSP) / X C SD IV ausführen) 


Argument bei CPTZ) decodieren und Ergebnis in X ablegen 


249F D? 

24A0 1E28 
24A2 CAA219 
24A5 DA6C0E 


24A8 CD3D1E 
24AB D24025 
24AE FECD 

24B0 28ED 

24B2 FE2E 
24B4 CA6C0E 
24B7 FECE 

24B9 CA3225 
24BC FE22 
24BE CA6628 
24C1 FECB 
24C3 CAC425 
24C6 FE 26 
24C8 CAE334 
24CB FEC3 
24CD 200A 


RST 10H 

LD E.28H 

OP Z.19A2H 

OP C.0E6CH 


CALL 1E3DH 

OP NC.2540H 

CP OCDH 

OR Z.249FH 

CP 2EH 

OP Z.0E6CH 

CP OCEH 

OP Z.2532H 

CP 22H 

OP Z.2866H 

CP OCBH 

OP Z.25C4H 

CP 26H 

OP Z.34E3H 

CP 0C3H 

OR NZ.24D9H 


: Operand angegeben ? 

: E * Fehlercode Tür MO-Error 
:Nein: MO-Error 
:0a: Ziffer angegeben 
:0a: Zahl decodieren und Ergebni 
: in X ablegen 
:Nein: Variable angegeben 
:0a: weiter bei 2540H 
' -Token ? (Positives 
:Vorzeichen) ? 

:0a: Übergehen, nächstes Zeichen 
: holen 

( Dez i mal punkt ) *> 

:0a: Zahl decodieren 

-Token ? (negatives 
:Vorzeichen) 

:0a: weiter bei 2532H 
: "" (Stringkonstante) *> 

:0a: weiter bei 2866H 

:' NOT '-Token 9 

:0a: weiter bei 25C4H 

? (Hexadezimale Konstante) 
:0a: weiter bei 34E3H 
: ’ ERR ' -Token ? 

:Nein: weiter bei 24D9H 


ERR 


24CF DT 
24D0 3A9A40 
24D3 ES 
24D4 CDF827 
24D7 El 
24D8 C9 


RST 10H 

LD A.C409AH) 

PUSH HL 

CALL 27F8H 

POP HL 

RET 


PTZ erhöhen 

A * Letzter Fehlercode 
PTZ retten 

X » HL * A (ohne Vorzeichen) 
PTZ zurück 


Nicht *ERR' 


24D9 FEC2 
24DB 200A 


CP 0C2H : ’ ERL ' -Token *» 

0R NZ.24E7H .-Nein: weiter bei 24E7H 
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ERL 


2400 07 
24DE E5 
24DF 2AEA40 
24E2 C0660C 
24E5 El 
24E6 C9 


RST 

PUSH 

LO 

CRLL 

POP 

RET 


HL . C40EAH) 
0C66H 


PTZ erhöhen 
PTZ retten 
HL « ZN der 
X « HL CSNG) 
PTZ zurück 


letzten Fehlerzeile 
(ohne Vorzeichen) 


Nicht 'ERL* 


24E7 FECO 
24E9 2014 


CP OCOH : 'VARPTR' -Token ? 

3R NZ.24FFH :Nein: weiter bei 24FFH 


VARPTR 


24EB D7 
24EC CF 
24ED 28 
24EE CDOD26 


24F1 CF 
24F2 29 
24F3 E5 
24F4 EB 
24F5 7C 
24F6 B5 
24F7 CA4A1E 
24FA CD9R0R 
24FD El 
24FE C 9 


RST 10H 

RST 08H 

DEFB '(' 

CRLL 260DH 


RST 08H 

DEFB 

PUSH HL 

EX DE. HL 

LO R.H 

OR L 

OP Z.1E4AH 

CRLL 0R9RH 

POP HL 

RET 


: PTZ erhöhen 

;3etzt muß '(’ folgen 

:Adresse der angegebenen 
Variablen nach DE laden, 

:DE * 0000H wenn die Variable 
:nicht gefunden wurde 
:Klammer geschlossen ? 

: PTZ retten 

; HL * Variablenadresse 
; Adresse - OOOOH ? 

; 3a : FC-Error 
;Nein: X - HL C INT) 

; PTZ zurück 


Nicht 'VARPTR' 


24FF FEC1 
2501 C37A3F 


2504 FEC5 
2506 CA9D41 

2509 FEC8 
250B CAC927 
250E FEC7 

2510 CA7641 
2513 FEC6 
2515 CA3201 
2519 C EC9 
25 1A CA9CC1 
2510 FSC4 
25 1 F CA2F2A 
2522 FEBE 
2524 2A5541 


CP 0C1H 

3P 3F7AH 


CP 0C5H 

3P Z.419DH 

CP 0C8H 

OP Z.27C9H 

CP 0C7H 

OP Z.4176H 

CP 0C6H 

OP Z .0132H 

CP 0C9H 

OP Z.019DH 

CP 0C4H 

OP Z.2A2FH 

CP OBEN 

OP Z.41S5H 


;'USR* -Token ? 

:Colour-Basic-Token abfangen 
: weiter bei 27FEH wenn 
:'USR* -Token gefunden 
INSTR* -Token ? 

:0a: weiter bei 419DH 
:'MEM* -Token *> 

:0a: weiter bei 27C9H 
: 'TIMES ' -Token ? 

:0a: weiter bei 4176H 
: 'CHECK '-Token ? 

:0a: weiter bei 0132H 
;' INKEYS ' -Token *> 

:0a: weiter bei 0190H 
: ' STRINGS ' - T onen 0 
:0a: weiter bei 2A2FH 
: ' PN ' -Token ? 

:0a: weiter bei 4155H 





2527 D6D7 
2529 D24E25 
252C CD3523 


252F CF 

2530 29 

2531 C9 


SUB 0D7H 

3P NC.254EH 

CALL 2335H 


RST 08H 

DEFB 

RET 


: Funkt ionstoken gefunden ? 

:3a: weiter bei 254EH 
.•Nein: Es kann nur ein Klammer- 
.-ausdruck bei CPTZ) stehen, alle 
:anderen Möglichkeiten wurden 
:bereits abgefangen 
jKlammer geschlossen ? 


: Negatives Vorzeichen 

2532 1 67D 

2534 CD3A23 
2537 2AF340 
253A E5 
253B CD7B09 
253E El 
^ 253F C9 


verarbeiten 

LD D.7DH 

CALL 233AH 

LD HL . C-40F3H 1 

PUSH HL 

CALL 097BH 

POP HL 

RET 


:D » Prioritätscode (nächste 
.•Priorität nach Potenzfunktion) 
:Argument nach X holen 
: PTZ holen 
:und retten 

:Ergebnis typrichtig negieren 
: PTZ zurück 


: Variable als Operand verarbeiten 


2540 C 00026 

2543 E5 

2544 EB 

2545 222141 

2548 E7 

2549 C4F709 
254C El 
2540 C9 


CALL 

PUSH 

EX 

LD 

RST 

CALL 

POP 

RET 


260DH 

HL 

DE. HL 

( 4 1 2 1 H ) .HL 
20H 

NZ.09F7H 

HL 


;Adresse der Variablen ermitteln 

: PTZ retten 

: HL * Adresse 

;Adresse abspeichern 

: TSTTVP , String 

:Nein: X ■ (HL) (Typrichtig) 

: PTZ zurück 


: Funkt ionstoken gefunden 

: A - 00H für SQN , 01H für INT ... 22H für RIGHTS und 23H für MIDS 
: (siehe Keyword- und Adressentabelle 1608H ff) 


254E 0600 

2550 07 

2551 4F 

2552 C5 
O 2553 D7 

2554 79 

2555 FE4 1 
2557 3816 


LD 

RLCA 

LD 

PUSH 

RST 

LD 

CP 

3R 


B. OOH 

C. A 
BC 
10H 


4 1 H 

C .256FH 


MSB des Offsets * 00H 
A - A # 2 (2 Bytes Adresse) 

BC * Offset für Adressentabelle 
Offset retten 
PTZ erhöhen 
A - Of fset-LSB 
LSB > 41H ? 

Nein: weiter bei 256FH 
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1. Argument von LEFTS , RIGHTS oder MIDS bearbeiten 


2559 CD3523 
255C CF 
2550 2C 
255E CDF40A 

2561 EB 

2562 2A2141 

2565 E3 

2566 E5 

2567 EB 

2568 CD1C2B 
256B EB 
256C E3 
256D 1814 


CALL 

RST 

DEFB 

CALL 

EX 

LO 

EX 

PUSH 

EX 

CALL 

EX 

EX 

3R 


2335H 

08H 

0AF4H 

OE. HL 

HL. C4121H) 
CSP) .HL 
HL 

DE. HL 
2B ICH 
DE. HL 
(SP) .HL 
2583H 


: K l ammer aus druck bearbeiten 
:Nach dem 1. Argument muß ein 
: Komma folgen 

:TM-Error wenn das 1. Argument 
:kein String war 
; OE - PTZ 

: HL « Adresse des 1 . Arg 
:Adresse retten 
:0ffset zurück ins Stack 
5 HL - PTZ 

:2. Argument (Zahl) nach DE holen 
; OE - PTZ. HL - 2. Argument 
:2. Argument retten. HL « Offset 
weiter bei 2583H 


Funktionsargument holen und Funktion ausführen 


256F CD2C25 

2572 E3 

2573 7D 

2574 FEOC 

2576 3807 
2578 FE 1 B 

257A E5 
257B DCB10A 
257E El 
257F 1 1 3E25 

2582 05 

2583 010816 

2586 09 

2587 4E 

2588 23 

2589 66 
258A 69 
258B E9 


CALL 252CH 

EX CSP). HL 

LD A.L 

CP OCH 

3R C.257FH 

CP 1BH 

PUSH HL 

CALL C.0AB1H 

POP HL 

LD DE.253EH 

PUSH DE 

LO BC.1608H 

ADD HL.BC 

LD C.CHL) 

INC HL 

LD H.CHL) 

LD L.C 

3P (HL) 


:Kl ammer ausdruck bearbeiten 
: PTZ retten. HL = Offset 
: A ■ LSB des Offsets 
; LSB < OCH ? 

; CSGN/INT/ABS/FRE/INP/POS) ? 
:3a: Funktion ausführen 
:Nein: LSB < 1BH ? CSQR/RND/LOG 
: EXP/COS/SIN/TAN/ATN) ? 

: Of f set retten 
;3a: X - CSNG (X) 

:0ffset zurück 
: RET- Adr auf 253EH setzen 

:BC - Zeiger auf Sprungtabelle 
:0ffset addieren 
: Adresse nach HL laden 


:und Funktion ausführen 



Stringvergleich 

I: CSP-2) = RET-Adr auf 25B8H 

(SP) * Vektoradresse des 1. Strings 

x = Vektoradresse des 2. Strings 

0: A » FFH wenn 1. String < 2. String 

« 00H wenn 1. String * 2. String 
= 01H wenn 1. String > 2. String 

258C CDD729 CALL 2907H 


258F 7E 

2590 23 

2591 4E 

2592 23 

2593 46 

2594 Dl 

2595 C5 

2596 F5 

2597 CDDE29 
259A Dl 
259B 5E 
259C 23 
2590 4E 
259E 23 
259F 46 
25A0 El 


LD A.CHL) 

INC HL 

LD C.CHL) 

INC HL 

LD B.CHL) 

POP DE 

PUSH BC 

PUSH AF 

CALL 29DEH 
POP DE 

LD E.CHL) 

INC HL 

LD C.CHL) 

INC HL 

LD B.CHL) 

POP HL 


:2. Argument auf STR-Format 
:testen. HL: Vektor des 
:2. Strings 
: A - LEN C 2 . St r ) 

: BC - Adresse C2.Str) 


: Vektoradresse des 1. Strings 
;zurück nach DE 
: Adresse 

;und Länge des 2. Strings retten 
: HL : Vektor des 1. Strings 
:D ■ Länge des 2. Strings 
:E * Länge des 1. Strings 
:BC « Adresse des 1. Strings 


:Adresse des 2. Strings nach HL 


25A 1 7B 
25A2 B2 
25A3 C8 
25A4 7A 
25A5 D601 
25A7 08 
25A8 AF 
25A9 BB 
25AA 3C 
25AB DO 
25AC 15 
25AD 10 
25AE OA 
25AF BE 

25B0 23 
25B1 03 
25B2 28ED 


25B4 3F 
25B5 C36009 


LD A.E 

OR D 

RET Z 

LD A.D 

SUB 01H 

RET C 

XOR A 

CP E 

INC A 

RET NC 

DEC D 

DEC E 

LD A.CBC) 

CP CHL) 

INC HL 

INC BC 

3R Z.25A1H 

CCF 

3P 0960H 


: Be i de Zähler 

:gleich Nu l l 7 

:3a: Fertig 

: A - 2. Zähler 

: 2 . Zähler gleich Null *> 

:3a: Fertig C A - FFH ) 

: A - OOH 

: 1 . Zähler gleich Null ? 

:A « 0 1 H wenn ja 

:3a: Fertig C A ■ 01H ) 

: 2 . Zähler -1 
: 1 . Zähler -1 

:Nächstes Zeichen des 1. Strings 
;mit Zeichen des 2. Strings ver- 
gleichen 
: 2 . Zeiger +1 
;i. Zeiger +1 

: Be i de identisch: Nächste Zeichen 
: vergl eichen 
:CY negieren 

:A»fpw W enn CV-i Cl.Str < 2.Str) 
:A«01H wenn CY«0 Cl.Str > 2.Str) 
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Vergleichsergebnis 
I : Pi * FFH wenn i. 

OOH wenn 1 . 
01H wenn 1 . 


auswerten 
Argument < 2. 
Argument * 2. 
Argument > 2. 


Argument 

Argument 

Argument 


25B8 3C 
25B9 8F 

25BA CI 
25BB AO 
25BC CSFF 

25BE 9F 

25BF C08D09 
25C2 1812 


INC A 

ADC A . A 

POP BC 

AND B 

ADD A.OFFH 

SBC A.A 

CALL 098DH 

OR 2506H 


:A * A + 1 (CY-1 wenn A*FFH war) 

; A = OIH : l.Arg < 2. Arg 

: A * 02H s l.Arg - 2. Arg 

: A * 04H : l.Arg > 2. Arg 

:Vergleichsoperatorcode zurück 
; C siehe 2355H ff.) 

:Bits der erfüllten 
:Operatoren = 1 

:A = A + FFH. CY = 1 wenn eine 
Bedingung erfüllt war (Überlauf 
:wenn A <> 0 war) 

: A - OOH * 0 wenn nicht erfüllt 
: sonst A * FFH * -1 
:X « HL ■ A (mit Vorzeichen) 
:zurück nach 2346H 


: NOT 


25C4 1 65A 

25C6 CD3A23 
25C9 CDTFOA 
25CC 7D 
25CD 2F 
25CE 6F 
25CF 7C 
25D0 2F 
25D1 67 
25D2 222141 
25D5 CI 
25D6 C34623 


LD 

CALL 

CALL 

LD 

CPL 

LD 

LD 

CPL 

LD 

LD 

POP 

DP 


D.5AH 

233AH 

0A7FH 

A.L 


: Prior itätscode = 5AH (noch vor 
: AND und OR) 

:Argument nach X 
:HL = X = CINT (X) 

:Ergebnis negieren 


H.A 

( 4 121H ) . HL :und zurückschreiben 
BC : RET-Adr löschen 

2346H :und zurück nach 2346H 


RST 20H 

TSTTYP : Testet aktuellen VT und setzt Flags entsprechend 
I : - 

0: A « VT - 3 

INT: A » FFH. 2*0. CY ■ 1 , S ■ 1 

STR: A * OOH. 2 - 1. CY * 1. S * 0 

SNG : A * OIH. Z * 0. CY - 1. S * 0 

DBL: A * 05H . 2*0. CY-0. S-0 


25D9 3AAF40 
25DC FE08 
25DE 3005 
25E0 D603 
25E2 B7 
25E3 37 
25E4 C9 
25E5 D603 
25E7 B7 
25ES C3 


LD 

CP 

OR 

SUB 

OR 

SCF 

RET 

SUB 

OR 

RET 


A. (40AFH) 
08H 

NC.25E5H 

03H 

A 


:A = VT 
: DBL 


;0a: weiter bei 25E5H 
;Nein: A * VT - 3 
:Flags setzen 
: CY * l 


03H : A * 7 T - 3 

A : c l ags setzen 
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Adresse suchen bzw. Variable erzeugen 
BC » 1 . und 2. Zeichen des Variablennamens 


0 * Typcode der Var 

2652 7 A 

2653 32AF40 

2656 D7 

2657 3ADC40 
265A B7 
265B C26426 
265E 7E 

265F 0628 
2661 CAE926 

2664 AF 

2665 32DC40 

2668 E5 

2669 D5 
266A 2AF940 

2660 EB 
266E 2AFB40 

2671 DF 

2672 El 

2673 2819 

2675 1A 

2676 6F 

2677 BC 


ab len 

LD A.D 

LD C40AFH) , A 

RST 10H 

LD A.C400CH) 

0R A 

DP NZ.2664H 

LD A.CHL) 

SUB 28H 

DP Z.26E9H 

XOR A 

LO ( 40QCH ) . A 

PUSH HL 

PUSH DE 

LD HL.C40F9H) 

EX DE. HL 

LD HL.C40FBH) 

RST 18H 

POP HL 

DR Z.268EH 

LD A.CDE) 

LD L.A 

CP H 


2678 13 

2679 200B 
267B IA 
267C B9 
267D 2007 
267F 13 

2680 1A 

2681 B8 

2682 CACC26 
2685 3E13 

*2686 13 

2687 13 

2688 E5 

2689 2600 


INC 

DR 

LD 

CP 

DR 

INC 

LD 

CP 

DP 

LD 

INC 

INC 

PUSH 

LD 


DE 

NZ.2686H 

A.CDE) 

C 

NZ.2686H 

DE 

A.CDE) 


Z.26CCH 
A. 13H 


268B 19 ADO HL. DE 

268C 1 8DF DR 266DH 


:A » Typcode 
:als VT ablegen 
: PTZ erhöhen 

: Feldvar iabl en rreigegeben *> 

: ( siehe 1CA1H ff) 

:Nein: Normale Variable erzeugen 
.•Da: A * nächstes Zeichen nach 
:Variablennamen 
jHlammer gefunden ° 

:Da: Feldvariable verarbeiten 
:A * 00 

: Fel dvar i ab l en wieder freigeben 
: PTZ retten 
: Typcode retten 

;HL * Startadresse der einfachen 
; Var iablen 
; DE » HL 

:HL = Endadresse der einfachen 
: Variablen 

;Ende der einfachen Variablen 
.•erreicht ? 

: Typcode zurück 

: Da : Variable neu anlegen 

:A ■ Typcode der Variable auf die 

: DE zeigt 

;Typcode nach L laden 
:und mit gesuchtem Code 
: vergleichen 
: Zeiger +1 

.•Sprung wenn Typcodes ungleich 
;2. Zeichen des Namens 
; vergleichen 
;Sprung wenn ungleich 
:Zeiger +1 

;1. Zeichen des Namens 
: vergleichen 

:Sprung wenn Variable gefunden 

••Zeiger +1 

:Zeiger +1 

.•Typcode retten 

:HL * Lange der gefundenen 

: Var i abl en 

:HL auf nächste Variable erhöhen 
: und Vergleich wiederholen 
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Variable nicht gefunden 


268E TC LD 

268F El POP 

2690 E3 EX 

2691 F5 PUSH 

2692 D5 PUSH 

2693 1 1 F 124 LD 

2636 DF RST 

2697 2836 3R 

2699 114325 LD 

269C DF RST 

269D Dl POP 

269E 2835 3R 

Neue Variable anlegen 

26A0 Fl POP 

26A1 E3 EX 

26A2 E5 PUSH 

26A3 C5 PUSH 

26A4 4F LD 

26A5 0600 LD 

26A7 C5 PUSH 

26A8 03 INC 

26A9 03 INC 

26AA 03 INC 

26AB 2RFD40 LD 

26AE E5 PUSH 

26AF 09 ADO 

2680 CI POP 

26B1 E5 PUSH 

26B2 CD5519 CALL 


26B5 El POP 

26B6 22FD40 LD 

2689 60 LD 

263A 63 lO 

26BB 22F840 LD 


A.H 

HL 

CSP) .HL 

AF 

DE 


DE.24F1H 


18H 

Z.26CFH 

DE.2543H 

18H 

DE 

Z.26D5H 


:A * Typcode 
:PTZ zurück 

: PTZ retten. HL - RET-Adr 
:Typcode retten 

Seiger auf Ende der einfachen 
:Variablen retten 
:Kam der CALL auf 260DH von der 
: * VARPTR ' - Funkt i on ? 

: Ist die RET-Adr gleich 24F1H *> 

:3a: weiter bei 26CFH 

:Nein: Kam der CALL von 2540H 7 

: Ist die RET-Adr gleich 2543H * 

.•Zeiger zurück 

;3a: weiter bei 26D5H 


C.A 

B.OOH 


HL. C40FDH) 


C40FDH) .HL 


C40FBH5 .HL 


: Typcode zurück 

:RET-Adr retten. PTZ zurück 

: PTZ retten 

:Namen retten 

:C » Typcode 

:B - 00 

:Typcode retten 

:Gesamt länge der Variablen 

:errechen: 

;BC + 1 für Typcode 
;BC ♦ 2 für Namen 

: HL * Anfangsadresse des freien 
: Speichers 
: Adresse retten 
:+ Gesamtlänge ergibt neue 
.•Anfangsadresse des freien 
: Speichers 

:Alte Anfangsadresse zurück 
: Neue Anfangsadresse retten 
Speicherplatz prüfen und 
Speicher verschieben um Platz 
: für die neue Variable zu 
:schaf fen 

:Neue Anfangsadresse zurück 
:und abspeichern 
:HL * Neue Endadresse der 
:einfachen Variablen 
:Adresse absoeichern 
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26BE 2B 
26BF 3600 

26C1 DF 
26C2 20FPI 
26C4 Dl 

26C5 73 
26C6 23 
26C7 Dl 
26C8 73 
26C9 23 
26CR 72 
26CB EB 

26CC 13 
26CD El 
26CE C9 


DEC HL 

LD (HL).OOH 

RST 18H 

3R NZ.26BEH 

POP DE 

LD C HL ) . E 

INC HL 

POP DE 

LD (HL).E 

INC HL 

LD (HL).D 

EX DE. HL 

INC DE . 

POP HL 

RET 


:Zeiger -l 

;Speicher für neue Variable 
: löschen 
: Fertig *> 

; Nein : weitermachen 
;Typcode zurück, HL ■ Rdresse 
:der neuen Variablen 
: Typcode abspeichern 
;Zeiger +1 

: Namen zurück nach DE 
:2. Zeichen abspeichern 
:Zeiger +1 

:1. Zeichen abspeichern 

: DE * Zeiger auf die Mantisse der 

:neuen Variablen 

:DE = Rdresse der Variablen 

: PTZ zurück 


^ : VRRPTR-Funkt ion : 

26CF 57 
2600 5F 
26D1 Fl 
26D2 Fi 

2603 E3 

2604 C9 


iable nicht gefunden 

LD D.R 

LD E.R 

POP RF 

POP RF 

EX (SP). HL 

RET 


; DE * OOOOH 

:Stack korrigieren 

: RET-Rdr ins Stack. PTZ zurück 
: Fer t ig 


: Variable bei der Rusdrucksanal yse (2337H ff) nicht gefunden 
: Ergebnis auf 0 setzen 


2605 
26D8 
26D9 
26DR 
26DB 
26DE 
26DF 
26E 1 


6F 

222141 


2006 

212819 


LD 

POP 

LD 

LD 

LD 

RST 

3R 

LD 


C4124H) .R 

BC 

H.R 


: Exp CX) * 0 -> X - 0 
:Stack korrigieren 
: HL * OOOOH 


C4121H) .HL 
20H 

NZ.26E7H 
HL. 1928H 


:X (INT) auf 0 setzen 
: TSTTVP . String ? 

:Nein: X ist ok 

;3a: Vektoradresse des Nullstrings 


26E4 

26E7 

26E8 


222141 

El 

C9 


LD (4121H) .HL : nach X laden 

POP HL : PTZ zurück 

RET 


201 



Feldvariable erkannt 
BC = Variablenname 
HL * PTZ 
fl = OOH 


26E9 ES PUSH 

26EA 2AAE40 LD 

26ED E3 EX 

26EE 57 LD 

26EF 05 PUSH 

26F0 CS PUSH 

26F1 CD451E CALL 

26F4 CI POP 

26F5 Fl POP 

26F6 EB EX 

26F7 E3 EX 

26F8 E5 PUSH 

26F9 EB EX 

26FA 3C INC 

26 FB 57 LD 

26FC 7E LD 

26FD FE2C CP 

26FF 28EE 3R 

2701 CF RST 

2702 29 DEFB 

2703 22F340 LD 

2706 El POP 

2707 22AE40 LD 

27 OA 05 PUSH 


270B 2AFB40 LD 

270E 3E19 LD 

*270F 19 ADO 

2710 EB EX 

2711 2AFD40 LD 

2714 EB EX 

2715 DF RST 

2716 3AAF40 LD 

2713 2S27 3R 


HL 

HL . C40AEH) 

CSP) .HL 

D.A 

DE 

BC 

1E45H 

BC 

AF 

DE. HL 
CSPJ .HL 
HL 

DE. HL 
A 

D.A 
A . C HL 5 
2CH 

2.26EFH 
08H 
* ) * 

C40F3H) .HL 
HL 

C40AEH) .HL 
DE 


HL. C40FBH) 

A. 19H 
HL. OE 

DE. HL 

HL. C40FDH) 

DE. HL 
18H 

A. C40AFH) 
Z.2742H 


: PTZ retten 

:L » Typcode. H » DIM-Flag 
; HL retten. PTZ zurück 
:D » 0 CAnzahl der Dimensionen) 
:Register retten 

:Nächste Dimension von CPTZ) 

: ho len 

: Register zurück 

:DE * PTZ. HL * Dimensionswert 
:Dimensionswert retten. HL zurück 
;HL wieder ins Stack setzen 
: HL - PTZ 

: Dimens ionszähl er +1 
; D * Zähler 

:Noch eine Dimension angegeben "> 
:Komma als Trennung gefunden ? 
;3a: nächste Dimension holen 
:Nein: Klammer geschlossen ^ 

: PTZ abspeichern 
:Typcode und DIM-Flag zurück 
:und wieder ins RAM schreiben 
:Dimensionszähler retten 
: Im Stack stehen jetzt die 
:einzelnen Dimensionswerte und 
.-als Abschluß die Anzahl der 
; Dimens ionen 

:HL * Zeiger auf den Anfang des 
: Fel dvar iab l enspei chers 

iFeldgröße aufaddieren. HL zeigt 
; jetzt auf das nächste Feld 

:DE - Zeiger auf das Ende des 
: Fel dvar iab l enspei chers 

:Ende der Feldvariablen 
: erreicht ? 

:A ■ Typcode des gesuchten Feldes 
:Nein: Feldvariable nicht 
:gefunden. HL zeigt auf freien 
Speicherplatz für das neue Feld 





27 1B BE 
271C 23 
27 ID 2008 
27 1F 7E 

2720 B9 

2721 23 

2722 2004 

2724 7E 

2725 B8 

2726 3E23 

*2727 23 

2728 23 

2729 5E 
2721=1 23 
272B 56 
272C 23 
2720 20E0 

272F 3RRE40 

2732 B7 

2733 IE 12 
2735 C2R2 1 9 

2738 Fl 

2739 96 
273R CR9527 

2730 IE 10 


CP 

INC 

OR 

L0 

CP 

INC 

OR 

LD 

CP 

LO 

INC 

INC 

LO 

INC 

LD 

INC 

OR 

LO 

OR 

LD 

OP 

POP 

SUB 

OP 

LD 

OP 


(HL) 

HL 

NZ.2727H 
R. (HL) 

C 

HL 

N2.2728H 
R. (HL) 

B 

R.23H 

HL 

HL 

E. (HL) 

HL 

D. (HL) 

HL . 
NZ.270FH 

R . ( 40REH ) 
R 

E . 12H 
NZ. 19R2H 

RF 

(HL) 

Z.2795H 

E. 10H 
19R2H 


; Typcode gefunden ^ 

: Zeiger +1 

: Nein : weiter bei 2727H 
:2. Zeichen des Namens 
: vergleichen 
:Zeiger +1 

: Sprung wenn ungleich 

:1. Zeichen vergleichen 

;st immen alle Zeichen überein ? 

: Zeiger anpassen 
: Zeiger +1 

:DE = Gesamte Feldlänge 


: Feld nicht gefunden. Nächstes 
:Feld überprüfen 
;Soll ein neues Feld angelegt 
:werden ? 

;E = Fehlercode für DD-Error 
:0a: Das Feld existiert bereits: 
:Fehler erzeugen 

;Nein: R * Rnzahl der Dimensionen 
:St immen auch diese überein ? 

;0a: Rdresse des gesuchten 
: Fel del ements errechnen 
:Nein: BS-Error 
: Zur Fehlerrout ine springen 


: Gesuchtes Feld nicht gefunden 

: HL zeigt auf freien Speicherplatz für das neue Feld 


2742 77 

2743 23 

2744 5F 

2745 1600 

2747 Fl 

2748 71 

2749 23 
274R 70 
274B 23 
274C 4F 
2740 C06319 

2750 23 

2751 23 

2752 22D840 

2755 71 

2756 23 

2757 3RRE40 
275R 17 


LD 

LD 

POP 

LD 

INC 

LD 

INC 

LD 

CRLL 

INC 

INC 

LD 

LD 

INC 

-3 


C.R 

1963H 


( 40D8H ) , HL 
(HL) .C 


R. (40REH) 


:Typcode ablegen 
: Ze i ger +1 

:0E = Länge des einzelnen Feld- 
Elements 

: R = Rnzahl der Dimensionen 
:Feldnamen ablegen 


;C = Dimensionszähler 
;Noch genügend Bytes frei ? 

: Zeiger +1 

: Zeiger +1 

.•Zeiger abspeichern 

:Rnzahl der Dimensionen ablegen 

.•Zeiger +1 

: R = DIM-Flag 

: C Y » 0 wenn Rdresse gesucht 
:werden soll. CY = 1 wenn ein 
:ganzes Feld angelegt werden soll 
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275B 79 
275C 010B00 
275F 3002 

2761 CI 

2762 03 

2763 71 

2764 23 

2765 70 

2766 23 

2767 F5 

2768 CDRROB 

276B Fl 
276C 3D 
276D 20ED 

276F F5 

2770 42 

2771 4B 

2772 EB 

2773 19 

2774 38C7 
2776 CD6C19 

2779 22FD40 

277C 2B 
277D 3600 
277 F DF 

2780 20FR 

2782 03 

2783 57 

2784 2RD840 

2787 5E 

2788 EB 

2789 29 


278R 09 


278B EB 
278C 2B 
2780 2B 
278E 73 
278F 23 

2790 72 

2791 23 

2792 Fl 

2793 3830 


LD R.C 

LD BC . OOOBH 

JR NC.2763H 

POP BC 

INC BC 

LD C HL ) . C 

INC HL 

LD (HL) .B 

INC HL 

PUSH RF 

CRLL OBRRH 

POP RF 

OEC R 

3R NZ.275CH 

PUSH RF 

LD B , 0 

LD C.E 

EX DE. HL 

RDD HL. DE 

3R C.273DH 

CRLL 196CH 

LD ( 40FDH ) . HL 

DEC HL 

LD (HL).OOH 

RST 18H 

3R NZ.277CH 

INC BC 

LD D.R 

LD HL.C40D8H) 

LD E . (HL) 

EX DE. HL 

RDD HL. HL 


RDD HL . BC 


EX DE. HL 

DEC HL 

DEC HL 

LD (HL) .E 

INC HL 

LD (HL) .D 

INC HL 

POP RF 

3R C.27C5H 


;R * Dimensionszahler 

:BC * Defaul t-Dimens ionswert 

.•Sprung bei Rdressensuche 

:Dimensionswert aus Stach holen 

: +1 für Null-Element 

: Dimens ionswert ablegen 


:Zähler retten 

; DE * DE * BC , Gesamtgröße des 
.•Feldes errechnen 
: Zäh l er zurück 
: Zäh l er -1 

:Nächsten Dimensionswert 
: verarbeiten 
,•00 im Stach ablegen 
: BC - Feldgröße 

;DE = Startadresse des neuen 
: Feldes. HL * Feldgröße 
;HL * neues Ende der Feld- 
; variablen 

: BS-Er ror bei Speicherüberlauf 
:Noch Speicherplatz frei ? 

;Neue Endadresse der Feld- 
jvariablen abspeichern 
; Zeiger -1 

:Byte des Feldes löschen 
:Feldanfang erreicht ? 

:Nein: nächstes Byte löschen 
;BC * Rnzahl der benötigten 
: Bytes + l 
:D = 0 

: HL * Zeiger auf Rnzahl der 
:Dimensionen (siehe 2752H) 

: DE * Rnzahl der Dimensionen 
: HL « Dimensionszähler. 

; DE = Zeiger 

; HL * 2 * Rnzahl der Dimensionen 
: ( Deder Dimensionswert wird mit 
:2 Bytes abgespeichert) 

:+ Rnzahl der für die Variablen- 
:speicherung benötigten Bytes 
;ergibt die Gesamtgröße des 
: Feldes 

; DE = Gesamtlänge 
.•Zeiger -2 

:Gesamt länge abspeichern 


:Flags vom Stach 
: Fertig wenn nur 
; angelegt werden 


holen 

ein neues Feld 

sollte (DIM) 
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Adresse der gesuchten Variablen errechnen 




2795 47 

2796 4F 

2797 7E 

2798 23 

2799 16Ei 
»279A El 

279B 5E 
279C 23 
2790 56 
279E 23 
279F E3 

27 A0 F5 
27 A 1 DF 
27A2 D23027 

27A5 CDAAOB 

27A8 19 


27A9 Fl 
27 AA 30 
27AB 44 
27 AC 40 
27 AD 20EB 
27AF 3AAF40 
27B2 44 
27B3 40 
27B4 29 
27B5 0604 
27B7 3804 
27B9 29 
27BA 2806 
27BC 29 
27BD B7 
27BE E2C227 
27C 1 09 

27C2 CI 
27C3 09 

27C4 EB 
27C5 2AF340 
27C8 C9 


LD B.A 

LD C.A 

LO A.(HL) 

INC HL 

LO D.0E1H 

POP HL 

LD E.CHL) 

INC HL 

LD D. (HL) 

INC HL 

EX C SP ) . HL 

PUSH AF 

RST 18H- 

3P NC.2730H 

CALL OBAAH 

AOD HL. OE 


POP AF 

OEC A 

LO B.H 

LD C.L 

3R N2.279AH 

LO A.C40AFH) 

LO B.H 

LD C.L 

ADD HL. HL 

SUB 04H 

3R C.27B0H 

ADO HL. HL 

3R Z.27C2H 

AOD HL. HL 

OR A 

3P P0.27C2H 

ADD HL . BC 

POP BC 

ADD HL . BC 

EX DE. HL 

LD HL.C40F3H) 

RET 


; BC * OOOOH 

; A » Dimensionszähler 
.•Zeiger +1 

:Zeiger zurück 

: DE = nächster D i mens ions wer t 


:Zeiger retten. HL - gesuchte 
.■Dimension (siehe 26F7H) 

.•Zähler retten 

: gesuchte Dimension gefunden ? 

:BS-Error wenn gesuchte Dimension 

:> gefundene Dimension 

; DE * DE * BC * Gefundene 

:Dimension * letzter Wert 

: HL = Gesuchte Dimension 

: + Gefundene Dimension 

:* letzter Wert 

.•Zähler zurück 

:Zähler -1 

:BC = Feldzeiger 

:Nächste Dimension verrechnen 
:A = Typcode 

:BC = Nummer des gesuchten 
:Elements 

:* 2 ergibt Offset für INT-Feld 
: Ist der Typcode INT oder STR ? 
:3a: weiter bei 27BDH 
: Ne i n : * 2 = Ofrset für SNG-Feld 
: Sprung wenn SNG-Feld 
: * 2 * Offset für DBL-Feld 
.•Typcode - INT oder DBL ? 

:3a: HL ist gesuchtes Offset 
: Ne i n : Nochmals Wert aufaddieren: 
: HL ist Offset für STR-Feld 
: Feldanfangsadresse nach BC 
: + Offset ergibt die gesuchte 
: Adresse 
: DE = Adresse 
: HL ■ PTZ 
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MEn » FRE C Numerische variable ) 


27C9 RF 
27CA E5 
27CB 32AF40 
27CE CDD427 


27D1 El 

2702 07 

2703 C9 

FRE 


XOR R 

PUSH HL 

LO C40RFHJ.R 

CRLL 27D4H 


POP HL 

RST 10H 

RET 


R - 0 
PT2 retten 

Typcode auf 0 setzen 

X » Ende des Stacks - Beginn des 

freien Speichers * Rnzahl der 

freien Bytes 

PT2 zurück 

PT2 erhöhen 


27D4 2RFD40 


27D7 EB 
27D8 210000 
27DB 39 
27DC E7 


2700 2000 
27DF CDDR29 

27E2 CDE628 
27E5 2RR040 
27E8 EB 
27E9 2A0640 


27EC 70 
27ED 93 
27EE 6F 
27EF 7C 
C7F0 9R 
27F 1 67 
27F2 C3660C 


LD HL.C40FDH) 

EX DE. HL 

LD HL.OOOOH 

ROO HL. SP 

RST 20H 


3R N2.27ECH 

CRLL 29DRH 

CRLL 28E6H 

LO HL.C40A0H) 

EX DE. HL 

LO ' HL.C40D6H) 

LD R.L 

SUB E 

LO L.R 

LD R.H 

SBC R.D 

LD H.R 

3P 0C66H 


:HL * Beginn des freien Speichers 
:C- Ende der Feldvariablen) 

;DE » HL 
: HL ■ 0 

;HL - 0 + SP - SP 
: TSTTYP . War das Argument 
: im STR-Format 7 
:Cwird die Rnzahl der freien 
:Bytes im Str ingspeicher 
:gewünscht “*) 

: Nein: weiter bei 27ECH 

:3a: Argument aus dem String- 

ispeicher wieder löschen 

:Str ingspeicher sortieren 

: HL " Start des St r ingspeichers 

: DE - HL 

: HL ■ Adresse des letzten Strings 
: im Stringspeicher 
: Beide Werte subtrahieren 


: HL als Ergebnis in X ablegen 


27F5 3AA640 
27F8 6F 
27F9 RF 
27FA 67 
27FB C39R0R 


LO 

LD 

XOR 

LD 

3P 


R. C40R6H) 


R 


:A » aktuelle Cursorposition 
: HL * R (ohne Vorzeichen) 


0R9RH ;X « HL ( INT) 


:o6 



USR 


27 FE C0A941 

CALL 

41A9H 

.-DOS 

2801 D7 

RST 

10H 

s PTZ erhöhen 

2802 CD2C25 

CALL 

252CH 

: H l ammer ausdruck bearbeiten 

2805 E5 

PUSH 

HL 

; PTZ retten 

2806 219008 

LD 

HL.0890H 

:RET-Adr auf 0890H setzen 

2809 E5 

PUSH 

HL 


280A 3AAF40 

LD 

A. ( 40AFH ) 

:A * Typcode 

2800 F5 

PUSH 

AF 

{Typcode retten 

280E FE03 

CP 

03H 

:Str ingargument 

2810 CCDA29 

CALL 

2.29DAH 

;3a: Argument aus Stringspeicher 
: löschen 

2813 Fl 

POP 

AF 

sTypcode zurück 

2814 ES 

EX 

DE .HL 

:DE * 0890H (bei numerischem 
; Argument ) 

: DE = Vektoradresse bei String- 
; argument 

2815 2A8E40 

LD 

HL. (408EH) 

: HL = Adresse der USR-Routine 

2818 E9 

3P 

(HL) 

sRoutine anspringen 

Umwandlung von X i 
I : A = gewünschter 
(siehe 1F35H ff) 

n gewünschten Typ 
Typcode 


2819 E5 

PUSH 

HL 

: HL retten 

28 1 A E607 

AND 

07H 

jA - Ofrset für Sprungtabelle: 
; INT : A « 2. STR: A « 3 
; SNG : A - 4. DSL: A * 0 

28 IC 21A1 18 

LD 

HL. 18A1H 

jHL * Sprungtabelle für 
; Typumwandlung 

28 1 F 4F 

LD 

C .A 

;BC - Offset 

2820 0600 

LD 

B.OOH 


2822 09 

ADD 

HL .SC 

;0ffset aufaddieren 

2923 CD8625 

CALL 

2586H 

.•Nochmals Offset aufaddieren 
:(2 Bytes Adresse) und Routine 
; aus führen 

2826 El 

2827 C9 

UPRO für INPUT 
Test auf ID-Error 
(siehe 219AH) 

POP 

RET 

HL 

: HL zurück 

2828 E5 

PUSH 

HL 

: PTZ retten 

2829 2AA240 

LD 

HL . (40A2H) 

: HL - aktuel le ZN 

282C 23 

INC 

HL 

{Aktuelle ZN - 65535 ? 

2820 7C 

LD 

A.H 

: ( HL + 1 = 0000H ^) 

282E B5 

OR 

L 


282F El 

POP 

HL 

: PTZ zurück 

2830 CO 

RET 

NZ 

: Ne i n : OK 
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ID-Er ror 


2831 IE 16 LD E.16H 

2833 C3A219 3P 19A2H 


ID-Error 


STR* 


2836 CDBDOF 
2839 CD6528 

283C CDDR29 


283F 012B2R 
2842 C5 


CRLL OFBDH 

CRLL 2865H 

CRLL 290AH 


LD BC.2A2BH 

PUSH BC 


:X in String ab 4130H umwandeln 
:Stringkonstante ab CHL) 

: übernehmen 

rund wieder aus dem String- 
rspeicher entfernen 
: HL : Vektor des Strings 
: RET-Adr auf 2A2BH setzen 


Neuen String in den Str ingspeicher übernehmen 

Ir HL: Vektor des neuen Strings (irgendwo im Speicher) 

0: DE: Vektor des neuen Strings (im Stringspeicher) 


2843 TE 

2844 23 

2845 E5 

2846 CDBF28 


2849 El 
284A 4E 
284B 23 
284C 46 
2840 CD5R28 


2850 E5 

2851 6F 

2852 CDCE29 


2855 Dl 

2856 C9 


LD A. (HL) 

INC HL 

PUSH HL 

CRLL 28BFH 


POP HL 

LD C.(HL) 

INC HL 

LD B.CHL) 

CRLL 285RH 


PUSH HL 

LD L.R 

CRLL 29CEH 


POP DE 

RET 


:A = Stringlänge 

.■Zeiger +1 

.■Zeiger retten 

:Sind noch R Bytes Platz im 

:Str ingspeicher ? 

:3a: DE ■ Zeiger auf 1. freies 
:Byte für den neuen String 
:Nein: OS-Error 
.•Zeiger zurück 

:Str ingadresse nach BC holen 


:Länge und Adresse des freien 
:Speichers im Stringspeicher in 
: der St r i ngt abe l l e als letzten 
:Eintrag ablegen 

: Vektoradresse des neuen String- 
.•platzes retten 
:L * Länge des Strings 
:String von ( BC ) nach (DE) 

: kopieren (String in String- 
Speicher übernehmen) 

:0E: Vektor des neuen Strings 


208 



Platz im Stringspeicher suchen 
I: A * Länge des neuen Strings 

0: DE = Startadresse im Str ingspeicher für den neuen String 
HL =» 40D3H » Vektoradresse des freien Strings 


2857 CDBF28 


285A 

2850 

295E 

285F 

2860 

2861 

2862 

2863 

2864 


CALL 28BFH 

LD HL.40D3H 

PUSH HL 

LO (HL).A 

INC HL 

LD (HL) . E 

INC HL 

LD (HL) .D 

POP HL 

RET 


:Noch A Bytes Platz im String- 
Speicher ? 

: HL : Vektor des freien Strings 
: Vektor adresse retten 
:Länge ablegen 

: Adresse des freien Speichers 
:im Stringspeicher ablegen 

: Vektoradresse zurück 


Stringkonstante bei (HL) aufarbeiten und in Stringtabelle übernehmen 
I; HL zeigt auf Stringkonstante (mit ' ” ’ oder 00H abgeschlossen) 

0: A = letztes Zeichen des Strings 
HL * Zeiger auf Stringende 
X = Vektoradresse des neuen Strings 


2865 2B 

2866 0622 

2868 50 

2869 E5 
286A OEFF 
286C 23 
286D 7E 
286E OC 
286F B7 

2870 2806 

2872 BA 

2873 2803 

2875 B8 

2876 20F4 
2878 FE22 


287A CC781D 
287D E3 


287E 

287F 

2880 

2881 


23 

EB 

79 


DEC HL 

LD B.22H 

LD D.B 

PUSH HL 

LD C.OFFH 

INC HL 

LD A.(HL) 

INC C 

OR A 

3R Z.2878H 

CP D 

DR Z.2878H 

CP B 

3R NZ.286CH 

CP 22H 

CALL Z.1D78H 

EX (SP), HL 

INC HL 

EX DE. HL 

LD A.C 

CALL 285AH 


: Zeiger -1 

: B * 1 . Endmarke ( '”’ ) 

:D * 2. Endmarke 
:Zeiger retten 
:Längenzähler auf -1 setzen 
: Zeiger +1 
:Zeichen holen 
: Zäh l er +1 

: St r i ngende (00H) erreicht 
:3a: weiter bei 2878H 
:2. Marke erreicht ? 

:3a: String zuende 
: Star tmarke erreicht ('”*) 
.•Nein: nächstes Zeichen holen 
:Wurde der String durch ”” 

: beendet ? 

:3a: Zeiger erhöhen 
:Endzeiger retten. 

: HL * Startzeiger 
: Zeiger +1 
: DE « Startzeiger 
:C = Länge 

; Länge und Zeiger als letzten 
:Eintrag in die Stringtabelle 
: übernehmen 
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2884 11D340 
2887 3ED5 
2889 2AB340 

288C 222141 
288F 3E03 
2891 32AF40 
2894 CDD309 


2897 110640 
289A 0F 

2898 228340 
289E El 
289F 7E 
2880 CO 


LD DE.40D3H 

LO A.0D5H 

LD HL.(40B3H) 

LO ( 4 121H ) , HL 

LD A.03H 

LO (40AFH),A 

CALL 09D3H 


LD 0E.40D6H 

RST 18H 

LD C 40B3H ) . HL 

POP HL 

LD A.(HL) 

RET NZ - 


; DE : Vektor des Strings 

: HL » nächste freie Position in 
:der Stringtabelle 
: Vektoradresse in X ablegen 
: VT auf String setzen 

:3 Bytes von (DE) nach (HL) 
jkopieren (Länge und Adresse in 
:die Stringtabelle übernehmen) 
:Wurde das Ende der Stringtabelle 
:erreicht * (Ist HL * 40D6H ■>) 

: Tabel l enzeiger abspeichern 
:Endzeiger zurück 
: A * letztes Zeichen 
:Nein: Fertig 


; ST-Error 


28A 1 1E1E 
28A3 C3A219 


LD E.1EH :3a: ST-Error 

3P 19A2H 


: Textkonstante ab (HL) aufarbeiten und ausgeben 
: I : HL zeigt auf eine Stringkonstante 


2SA6 23 
28A7 CD6528 
29AA CDDA29 

28AD C0C409 

28B0 14 
28B1 15 
28B2 C8 
28B3 OA 
28B4 CD2A03 
28B7 FEOD 
2889 CC0321 
28BC 03 
28BD 1 8F2 


INC HL 

CALL 2865H 

CALL 29DAH 

CALL 09C4H 

INC D 

DEC D 

RET Z 

LD A.(BC) 

CALL 032AH 

CP ODH 

CALL Z.2103H 
INC BC 

3R 28B1H 


:Zeiger +1 

:Str ingkonstante übernehmen 
:und wieder aus Stringtabelle 
: l öschen 

; 0 = Länge. BC * Startadresse des 
:Strings 
: Zähler +1 

.•Zähler -1. Zähler » 0 ? 

:3a: Fertig 
:Zeichen holen 
: und ausgeben 
:War es ein CR/LF 7 
:3a: DOS anspringen 
: Zeiger +1 

:nächstes Zeichen holen 


Platz im Str ingspeicher prüfen 

Falls weniger als A Bytes im Stringspeicher frei sind wird der Str ingspeicher 
umsortiert und die Routine nocheinmal ausgeführt. 

Ist der St r i ngspeicher voll, dann wird ein OS-Error erzeugt 


I: A = Anzahl der im St r ingspeicher benötigten Bytes 
0: DE - Zeiger auf A Bytes freien Platz im Stringspeicher 
HL = Startadresse des Stringspeichers 


OR 

LD 


Z = 0 als Flag für den ersten 
Durchlauf 


28C0 OEF 1 


C .0F1H 



Ansprung beim zweiten Durchlauf 


#28C 1 Fl 
28C2 F5 
23C3 2AA040 

28C8 EB 
28C7 2A0640 


28CA 2F 
28CB 4F 
28CC 06FF 
28CE 09 


28CF 23 

2800 DF 

2801 3807 

2803 220640 

2806 23 

2807 EB 

2808 Fl 
28D9 C9 


POP AF 

PUSH AF 

LO HL.C40A0H) 

EX DE. HL 

LD HL.C4006H) 


CPL 

LD C .A 

LD B.OFFH 

ADD HL . BC 


INC HL 

RST 18H 

DR C . 280AH 

LD C40D6HD.HL 

INC HL 

EX DE. HL 

POP AF 

RET 


; AF zurück (jetzt ist Z - 1 !) 
:AF retten 

: HL * Startadresse des 
:Str ingspeichers 
:DE - HL 

:HL * Adresse des ersten freien 
: Bytes im Stringspeicher Cder 
:Str ingspeicher wird von OBEN 
: nach UNTEN gefül It ' ) 

: A - -A 

:BC * - Anzahl der benötigten 
.-Bytes 

: HL + (-Anzahl der benötigten 
:Bytes) ■ Startadresse für den 
; neuen String 

:+l da HL bereits aur ein freies 
:Byte zeigte 

:Anfang des St r i ngspeichers 
;unterschr itten 7 
:Da: Stringspeicher sortieren 
:0S-Error beim 2. Durchlauf 
:Nein: Zeiger abspeichern 
:Zeiger +1 

:DE - Zeiger auf freien 
: Speicherplatz 
:AF zurück 


Stringspeicher sortieren 

Es kann sein, daß noch Strings im Stringspeicher stehen, deren Variablen 
schon gelöscht sind. Diese Routine prüft dies nach und verschiebt den 
Stringspeicher entsprechend 
I: (SPD - Flag für l. Ourchlauf 


23DA Fl 


28DB 1E1A 
23DD CAA219 
28E0 BF 

28E1 F5 
28E2 01 C 128 
28E5 CS 
23E6 2AB140 


POP 


LD 

DP 

CP 

PUSH 

LD 

PUSH 

LD 


AF 


E. IAH 
Z. 19A2H 
A 

AF 

BC.28C1H 

BC 

HL . C40B1H) 


:Ftag zurück 

:Ist dies schon der zweite 
:Durchlauf 7 

:E = Fehlercode für OS-Error 
:Da: Fehler erzeugen 
;Z = 1 setzen (Kennung für 
:zweiten Durchlauf) 

: Fl ag retten 

: RET-Adr auf 28C1H setzen 
:(Für 2. Durchlauf) 

; HL « Endadresse des String- 
: Speichers 

;* Aaresse des höchsten Strings 

: Dtringsoeicher : Default) 



Nächsten höchsten String im Stringspeicher suchen und einsortieren 
(Höchster String heißt der String mit der größten Startadresse) 

HL * Adresse des zuletzt einsor t ierten Strings im Str ingspeicher 
C= Adresse des letzten Strings im Stringspeicher beim letzten Ourchlauf) 


28E9 22D640 

28EC 210000 
28EF E5 
28F0 2AA040 

28F3 E5 


LD 

LD 

PUSH 

LD 

PUSH 


C40D6H) .HL 

HL.OOOOH 

HL 

HL. C40A0H) 
HL 


ifldresse des zuletzt einsor- 
Jtierten Strings abspeichern 
: HL • OOOOH (■ Def aul tadresse) 
: OOOOH ins Stach schreiben 
:HL ■ Startadresse des 
:Str ingspeichers 
sStartadresse retten 


; Bei der Startadresse wird die Prüfung auf höchsten String begonnen und endet 
: bei der Startadresse des zuletzt einsor t ier ten Strings. 

; Der in diesem Bereich höchste Striog wird dann neu einsortiert und die 
: Routine solange wiederholt, bis Kein höchster String mehr gefunden wird. 

: (d.h. alle Strings einsortiert sind) 

: Suche des nächsten höchsten Strings beginnen 

28F4 21B540 LD HL . 40B5H :HL ■ Startadresse der String- 

stabelle * Vektoradresse des 
:ersten Strings in der String- 
: tabel le 


: Alle Str ingvar iablen überprüfen 

; Es wird zuerst bei den Einträgen in der Stringtabelle, dann bei den einfachen 
; Stringvariablen und zum Schluß bei den Feldvariablen überprüft, ob sie im 
; Stringspeicher stehen 


28F7 EB 
28F8 2AB340 
28FB EB 
28FC DF 
28FD 01F728 
2900 C24A29 


EX 

LD 

EX 

RST 

LD 

OP 


DE. HL 

HL. C40B3H) 
DE. HL 
18H 

BC . 28F7H 
NZ.294AH 


: DE ■ Adresse des nächsten freien 
sEintrags in der Stringtabellen 

.•Ende der Tabelle erreicht 

:BC * RET-Adr 

sNein: weiter bei 294AH 


: Ende der Stringtabelle erreicht 
: Einfache Stringvariablen überprüfen 


2903 2AF940 


2906 EB 

2907 2AFB40 
290A EB 
290B DF 


290C 2813 


LD 


EX 

LD 

EX 

RST 


3R 


HL . C40F9H) 
DE. HL 

HL. C40FBH) 
DE. HL 
18H 

Z.2921H 


; HL = Startadresse der einfachen 
; Variablen 

: DE * Startadresse der Feld- 
: variablen 

:Ende der einfachen Variablen 
:erreicht •> 

:3a: weiter bei 2921H 
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— 


290E 7E 
290F 23 

2910 23 

2911 23 

2912 FE03 
2914 2004 
2916 CD4B29 
2919 BF 
291A 5F 

29 1 B 1600 
29 ID 19 


LD A. (HL) 

INC HL 

INC HL 

INC HL 

CP 03H 

3R NZ.291AH 

CALL 294BH 

XOR R 

LD E.R 

LO O.OOH 

ADD HL. DE 


29 1 E 1 8E6 


3R 2906H 


: Ende der einfachen Variablen erreicht 
: Feldvariablen überprüfen 


2920 CI 

2921 EB 

2922 2AFD40 

2925 EB 

2926 DF 


POP BC 

EX DE. HL 

LD HL.C40FDH) 

EX DE. HL 

RST 18H 


2927 CA6B29 
292A 7E 
292B 23 
292C CDC209 


3P Z.296BH 

LD A.CHL) 

INC HL 

CALL 09C2H 


292F E5 

2930 09 

2931 FE03 
2933 20EB 
2935 22D840 
2938 El 


PUSH 

ADO 

CP 

3R 

LD 

POP 


HL 

HL . BC 
03H 

NZ.2920H 
C40D8H) .HL 
HL 


2939 4E 
293A 0600 
293C 09 


LD C.CHL) 

LD B . OOH 

ADD HL . BC 


w 293D 


09 


ADO HL . BC 


293E 23 
293F EB 
2940 2AD840 


2943 EB 

2944 DF 



INC HL 

EX DE. HL 

LD HL.C40D8H) 

EX DE. HL 

RST 18H 

CR 1.292 ln 

-3 3C.293FH 

='JSH 3C 


: A ■ Typcode 

: Zeiger +1 C f ür Typcode) 

; Zeiger +2 (für Namen) 

:Stringvariable gefunden ° 
:Nein: nächste Variable prüfen 
:3a: Adresse überprüfen 
: A - OOH 

: DE - orfset zur nächsten 
: Var iablen 
:Offset addieren: 

: HL : Vektor der nächsten 
:Var iablen 

: nächste Variable prüfen 


: Stackkorrektur 

:DE * Endadresse der Feld- 
: variablen 

:Ende der Feldvariablen 
:erreicht ? 

:3a: Höchsten String einsortieren 
; A * Typcode des Feldes 
; Zeiger +1 

: BCDE * (HL): DE * Namen. 

:BC * Länge des Feldes 
: Zeiger retten 

: HL = Zeiger auf nächstes Feld 
:Stringfeld gefunden ? 

:Nein: nächstes Feld testen 
:3a: Zeiger retten 
: HL = Zeiger auf die Anzahl der 
:Dimensionen 

:BC = Anzahl der Dimensionen 

:Anzahl zweimal aufaddieren 
:C3ede Dimension wurde mit 2 
:Bytes abgespeichert) 

: HL ist jetzt Vektor adresse des 
:ersten Feldelements -1 
: HL +1: Vektor 

: DE = Zeiger auf das nächste Feld 
:(* Endadresse des aktuellen 
: Fel des. siehe 293SH ) 

:Ende des Feldes erreicht 
:3a: nächstes Feld überprüfen 
: Nein : ^E’-Adr auf 293FH setzen 


•13 



Stringadresse der gefundenen St r ingvar iabl en überprüfen 
Dazu zwei Kriterien: 

1. Steht der String im St r ingspeicher und ist noch nicht wieder übernommen 
worden ? 

Cd.h. Ist die Stringadresse Kleiner als die des zuletzt einsortierten 
Strings) 

2. Steht der String höher im Str ingspeicher als der zuletzt als höchster 
String angenommene String ? 

Cd.h. Ist die Stringadresse größer als die. des zuletzt als höchsten 
String angenommenen Strings ?) 

Wenn beide Kriterien zutreffen, wird die Adresse des gefundenen Strings im 
Stack als größte Adresse abgelegt. 

I : HL ■ Vektoradresse der Stringvariablen 
0: HL » Vektoradresse auf die nächste Variable 


294B AF 
294C B6 
2940 23 
294E 5E 
294F 23 

2950 56 

2951 23 

2952 C8 


: 1. Kriterium 

2953 44 

2954 40 

2955 2AD640 

2958 OF 


2959 60 
295A 69 
295B 08 


: 2. Kriterium 


295C El 
2950 E3 


295E DF 

295F E3 

2960 ES 

2961 60 

2962 69 

2963 00 


XOR A 

OR CHL) 

INC HL 

LD E.CHL) 

INC HL 

LD O.CHL) 

INC HL 

RET Z 


A - 00H 

A ■ Länge des Strings 
Zeiger +l 

DE * Stringadresse 


:Fertig wenn ein String mit der 
:Länge Null gefunden wurde 


LD 

LD 

LD 

RST 


LD 

LD 

RET 


B.H 
C . L 

HL. C40D6H) 
18H 


H . B 


:BC: Vektor der nächsten 
:Variablen 

: HL - Adresse des zuletzt ein- 
:sortierten Strings 
;Ist der gefundene String schon 
:wieder in den St r ingspeicher 
: übernommen worden ? 

;CIst die Str ingadresse größer 
:als die Adresse des zuletzt ein- 
ssortierten Strings ’’) 

; HL : Vektor 


L.C 

C :3a: Fertig 


POP HL 

EX CSPl.HL 


RS“ 19H 

EX (SP).HL 

°'JSH HL 

-0 H . 3 

LD L.C 

RET NC 


:Nein: HL * RET-Adr 
:RET-Adr retten 
: HL ■ Adresse des zuletzt als 
shöchsten String angenommen 
:Strings (siehe 2963H ff) 

: Ist die Startadresse des Strings 
: größer als HL 
: HL und 

; RET-Adr ins Stack zurück 
: HL : /ektor 

:Nein: Per tig 
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Neuen höchsten String gefunden 

Stringadresse und Vektor adresse ins Stack retten 


2964 CI 

POP 

BC 

: BC - RET-Adr 

2965 Fl 

POP 

AF 

:Startadresse des zuletzt als 
:höchsten String angenommenen 
: St r ings 

2966 Fl 

POP 

AF 

: und dessen Vektoradresse 
: vom Stack entfernen 

2967 E5 

PUSH 

HL 

: Dafür wird die jetzige Vektor- 
: adresse 

2968 05 

PUSH 

DE 

:und die Startadresse ins Stack 
; übernommen 

2969 C5 
296A C9 

PUSH 

RET 

BC 

: RET-Adr zurück ins Stack 

Alle Stringvariablen überprüft 


Neuen höchsten 

String an den zuletzt einsortierten String anhängen 

und dami t allen 

dazwischenl 

egenden 'Müll' 

löschen 

296B Dl 

POP 

DE 

:Adresse des höchsten Strings vom 
:Stack nehmen 

296C El 

POP 

HL 

: Vektoradresse zurück 

2960 7D 

LD 

A.L 

:Wurde die Adresse seit 28ECH 
; geändert *> 

296E B4 

OR 

H 

:Cd.h. wurde ein neuer höchster 
:String gefunden ?) 

296F C8 

RET 

Z 

:Nein: Fertig 

Es wurde ein neuer höchster 

String gefunden 


2970 2B 

DEC 

HL 

:BC * Adresse des neuen höchsten 

2971 46 

LD 

B, (HL) 

;Str ings 

2972 2B 

DEC 

HL 

:(■ DE. da die Adresse zu DE ge- 

2973 4E 

LD 

C . (HL) 

; hört ) 

2974 E5 

PUSH 

HL 

:Adresse +1 retten 

2975 2B 

OEC 

HL 

; HL -1 = Vektoradresse des 
:zuletzt überprüften Strings 

2976 6E 

LD 

L.CHL) 

;HL ■ St ring länge 

2977 2600 

LD 

H.OOH 


2979 09 

RDD 

HL . BC 

; HL * Länge + St r ingadresse 

297A 50 

LD 

D.B 

: DE = Stringadresse 

297B 59 

LD 

E.C 


297C 2B 

DEC 

HL 

:HL * Endadresse des Strings 

297D 44 

LD 

B.H 

; BC » HL 

297E 40 

LD 

C.L 


297F 2A0640 

LO 

HL. (40D6H) 

: HL = Adresse des zuletzt einsor- 
stiert.en Strings 

2992 205819 

2ALL 

1958H 

:Durch Anhängen des neuen Strings 
: an den zuletzt einsort :er*ren . 

: aen neuen String einsort ieren 



2985 

El 

POP 

HL 

: Vektoradresse +1 zurück 

2986 

71 

LD 

CHL) .C 

:neue Startadresse einsetzen 

2987 

23 

INC 

HL 


2988 

70 

LD 

CHL) .B 


2989 

69 

LO 

L.C 

:HL = Startadresse des über- 

2988 

60 

LD 

H.B 

nommenen Strings 

2988 

2B 

DEC 

HL 

: HL -1 « 8dr esse des zuletzt ein- 

298C 

C3E928 

DP 

28E9H 

sortierten Strings 

nächsten höchsten String suchen 

St r ingaddi t ion 
I: HL =• PTZ auf ' + ' 

BC ■ Prioritätscode 
X * 1. String 
0: X » neuer String 

298F C5 

PUSH 

BC 

: Pr ioritätscode retten 

2990 

E5 

PUSH 

HL 

; PTZ retten 

2991 

282141 

LD 

HL . C4121H) 

: HL : Vektor des 1. Strings 

2994 

E3 

EX 

CSP) .HL 

: Vektoradresse retten, PTZ zurücl 

2995 

CD9F24 

C8LL 

249FH 

; 2 . String nach X holen 

2998 

E3 

EX 

CSP) .HL 

;PTZ retten. Vektoradresse des 

2999 

C0F408 

C8LL 

08F4H 

;1. Strings zurück 

:TM-Error wenn in X kein String 

299C 

7E 

LO 

8. CHL) 

;C2. 8rgument falsch) 

; 8 * Länge des 1. Strings 

2990 

E5 

PUSH 

HL 

: Vektoradresse 1. String retten 

299E 

282141 

LO 

HL. C4121H) 

; HL : Vektor des 2. Strings 

2981 

E5 

PUSH 

HL 

: Vektoradresse 2. String retten 

2982 

86 

800 

8. CHL) 

: Länge des 2. Strings zu 8 

2983 

IE IC 

LD 

E . ICH 

:addieren: 8 * Gesamtlänge des 
:neuen Strings 

:E ■ Fehlercode für LS-Error 

2985 

088219 

DP 

C . 1982H 

;Fehler bei Überlauf Cneuer 

2988 

CD5728 

C8LL 

2857H 

: St r ing ist zu lang) 

: 8 Bytes Platz im Stringspeicher 

298B 

01 

POP 

DE 

;schaffen. HL: Vektor des 
: neuen St r ingC pl at zes ) 

: Vektoradresse 2. String zurück 

298C 

C0DE29 

C8LL 

29DEH 

:2. String aus Tabelle und 

298F 

E3 

EX 

CSP) .HL 

: St r ingspeicher löschen ? 

; Vektoradresse 2. String retten. 

29B0 

CDDD29 

C8LL 

2900H 

: Vektoradresse 1. String zurück 
ii. String aus Tabelle und 

29B3 

E5 

PUSH 

HL 

:St r ingspeicher löschen * 

: Vektoradresse 1. String retten 

29B4 

280440 

LD 

HL . C4004H) 

; HL * 8dresse des freien Platzes 

29B7 

EB 

EX 

DE .HL 

; für den neuen String 
; OE » HL 



29B8 CDCS29 

29BB CDC629 
29BE 214923 

29C1 E3 
29C2 E5 

29C3 C38428 


CALL 29C6H 

CALL 29C6H 

LD HL.2349H 

EX C SP) .HL 

PUSH HL 

3P 2884H 


;1. String in freien Platz 
: kopieren 

:2. String dahinter kopieren 
: Bei 2349H wieder in die 
: Ausdrucksdecodierung 
: zurückspringen 
: RET-Adr ins Stack 
:Alte RET-Adr wieder zurück- 
rschreiben 

.•Neuen String in Stringtabell 
; übernehmen 


String nach (DE) kopieren 

I: C SP - 25 : Vektor des Strings 

DE = Neue Adresse des Strings 


29C6 El POP HL 

29C7 E3 EX CSP) .HL 


29C8 7E 
29C9 23 
29CA 4E 
29CB 23 
29CC 46 
29CD 6F 
29CE 2C 
29CF 20 

2900 C8 

2901 OA 

2902 12 

2903 03 

2904 13 

2905 18F8 


LO 

INC 

LO 

INC 

LO 

LD 

INC 

DEC 

RET 

LD 

LO 

INC 

INC 

3R 


A . ( HL 5 
HL 

C. CHLD 
HL 

B. CHL5 
L.A 
L 
L 
2 

A . C BC 5 
(DE) . A 
BC 
DE 

29CFH 


: RET-Adr nach HL 
: Vektoradresse holen. 

: RET-Adr ins Stack zurück 
:A “ Lange 

:BC * Adresse des Strings 


; L « Zähler 
: Zähl er » 0 *> 

: Zäh l er -l 
:3a: Fertig 

:Nein: Zeichen von (BC) 
:nach (DE) kopieren 
: Zeiger +1 
: Zeiger +1 
:Nächstes Byte 


String in X aus Tabelle und Str ingspeicher entfernen 

Sei St r ingfunkt ionen werden grundsätzlich alle Stringkonstanten bzw. 
Zwischenergebnisse die als Argumente auftreten in die Stringtabelle 
und in den St r i ngspeicher übernommen. 

Da diese Strings aber nur von der Funktion gebraucht werden, können sie 
wieder gelöscht werden. 

I: X = String 
0: HL : Vektor des Strings 

2907 CDF40A CALL 

290A 2A2141 LD 


0AF4H 

HL. (4121H) 


: Test ob X : 
: HL : Vektoi 


m STR-Format 
■ des Strings 
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: String aus Tabelle und St r i ngspeicher löschen ? 
: I : HL : Vektor des Strings 


2900 EB 
290E CDF529 


29E1 EB 
29E2 CO 


EX DE. HL 

CALL 29F5H 


EX DE. HL 

RET N2 


: OE : Vektor des Strings 
;Zeigt die Vektoradresse auf den 
: letzten Eintrag in der String- 
stabelle. wird dieser gelöscht 
:(In diesem Fall handelt es sich 
;um ein Zwischenergebnis oder um 
seine Stringkonstante !) 
s HL s Vektor 

sFertig wenn der letzte Eintrag 
snicht gelöscht wurde 


29E3 05 
29E4 50 
29E5 59 
29E6 1B 
29E7 4E 
29E8 2AD640 

29EB DF 


29EC 2005 


PUSH OE 

LD 0.B- 

LD E.C 

DEC DE 

LD C.CHL) 

LD HL.C40D6H) 

RST 18H 


DR NZ.29F3H 


s Vektoradresse retten 
s DE * Stringadresse 

sOE -1 

sC » Länge des Strings 

s HL = Adresse des letzten Strings 

sim Stringspeicher -1 

slst der String der letzte im 

sStr ingspeicher ? 

st In diesem Fall handelt es sich 

sum eine Stringkonstante !) 

;Nein: Fertig 


29EE 47 
29EF 09 


29F0 220640 


29F3 El 
29F4 C 9 


LD 

ADD 


LD 


POP 

RET 


B.A 

HL.BC 

C40D6H) .HL 
HL 


; Da : B - 0. BC - Stringlänge 
sStringlänge zu HL addieren: 

; HL zeigt jetzt auf den neuen 
: letzten String im Stringspeicher 
:Neue Adresse zurückschreiben 
stdie Stringkonstante ist jetzt 
•.aus dem St r ingspeicher gelöscht) 
: Vektoradresse zurück 


Zeigt DE auf den letzten Eintrag der Stringtabelle 
Wenn ja. dann wird der letzte Eintrag gelöscht 
I : DE : Vektor des Strings 

C: BC - Adresse des Strings im letzten Eintrag der Stringtabelle 
(■ Stringadresse wenn Z = 1) 

DE : Vektor des Strings 
HL - DE 

Z * l: der Eintrag wurde gelöscht 


29F5 2AB340 


29F8 

29F9 

29FA 

29FB 

29FC 

29FD 

25FE 



2B 

46 

2B 

4E 

2B 

DF 

CO 

229340 


LD 

DEC 

LD 

DEC 

LD 

DEC 

RST 

RET 

LD 


HL. C40B3H) 
HL 

B. CHL) 

HL 

C. CHL) 

HL 

18H 

NZ 

C40B3H) .HL 


: HL = Adresse des nächsten freien 
:Eintrags in der Stringtabelle 

:BC » Adresse des Strings 


:Zeigt DE auf diesen Eintrag 
: Nei n : Fertig 

:Da: Neue Adresse zurückschreiben 
:Calter Eintrag wird über- 
; sehr ieben) 


RET 



; LEN 

2A03 01F327 
2fi06 C5 
2A07 CD0729 


2A0A AF 
2A0B 57 
2A0C 7E 
2A0D B7 
2A0E C9 


: ASC 

2A0F 01F827 
2A12 C5 
2A13 CD072A 

2A16 CA4A1E 
2A19 23 
2A1A 5E 
2A1B 23 
2A1C 56 
2A1D 1A 
2A1E C9 

: CHRS 

2A1F 3E01 
2A2 1 CD5728 
2A24 CD1F2B 
2A27 2AD440 
2A2A 73 
2A2B CI 
2A2C C38428 

: STRINGS 

2A2F 07 
2A30 CF 
2A3 1 28 
2A32 CD1C2B 
2A35 05 
2A3o CF 
2A37 2C 
2A38 CD3723 
2A38 :F 
2A3C 29 
1A?C E2 
2A3E ES 


LD BC.27F8H 

PUSH BC 

CALL 2907H 


XOR A 

LD D.A 

LO A.CHL) 

OR A 

RET 


; RET-Adr auf 27F8H setzen 

;X auf Stringformat prüfen 
.•String aus Tabelle und String- 
Speicher löschen ^ 

: HL : Vektor des Stringarguments 
:A « 00 
:0 - 00 

; A » Stringlange 
:Flags setzen 

.-RET nach 27F8H : A als INT nach X 
schreiben 


LD BC.27F8H 

PUSH BC 

CALL 2A07H 

OP 2.1E4AH 

INC HL 

LD E.CHL) 

INC HL 

LD D.CHL) 

LD A.CDE) 

RET 


: RET-Adr auf 27F8H setzen 

: Vektoradresse und Länge des 
;Str ingarguments holen 
:FC-Error wenn Nullstring 
: Adresse nach DE holen 


: A * 1 . Zeichen des Strings 
: RET nach 27F8H C siehe 2A0EH ) 


LD 

CALL 

CALL 

LD 

LD 

POP 

OP 


A.01H 

2857H 

2B1FH 

HL . C40D4H) 
(HL) .E 
BC 

2884H 


;A » Länge des Ergebnisstr ings 

:Platz im Stringspeicher schaffen 

{Argument nach DE 

;HL = Stringadresse 

{Wert in String schreiben 

: RET-Adr löschen 

{String in Speicher übernehmen 


RST 10H 

RST 08H 

DEFB '(' 

CALL 2B1CH 

PUSH DE 

RST 08H 

DEFB 

CALL 2337H 

PST OSH 


:PTZ erhöhen 
{Klammer auf 

: Länge des neuen Strings holen 
:und retten 
: Komma angegeben "> 

{Argument nach X holen 
{Klammer zu -* 


iX SP). HL : PTZ retten. _änge zurück 

PUSH HL :Länge retten 





2R3F ET 
2R40 2805 
2R42 C01F2B 

2R45 1803 


RST 20H 

3R Z.2R4TH 

CRLL 2B1FH 

3R 2R4RH 


: TSTTYP . St r i ngargument ? 

:3a: weiter bei 2R47H 
:Nein: Ist die Zahl im Bereich 
: von 0 bis 255 ? Nein: FC-Error 
.•Weiter bei 2R4RH CR - Zahl) 


: String als 2. Rrgument angegeben 


2R47 CD132R 

2R4R Dl 
2R4B F5 


CRLL 2R13H 

POP DE 

PUSH RF 


2R4C F5 
2R4D 7B 
2R4E CD5728 
2R5 1 5F 
2R52 Fl 
2R53 IC 
2R54 ID 
2R55 2804 
2R57 2R044Q 


PUSH RF 

LD R.E 

CRLL 2857H 

LD E.R 

POP RF 

INC E 

DEC E 

3R Z.2R2BH 

LD HL.C4004H) 


2R5R 77 
2R5B 23 
2R5C 10 
2R5D 20FB 
2R5F 18CR 


LD ( HL ) . R 

INC HL 

DEC E 

3R NZ.2R5RH 

3R 2R2BH 


: LEFT* 

; I: CSP - 2) : Vektor des Stringarguments 
: CSP) - Zahl 


2R61 CDDF2R CRLL 2RDFH 

2R64 RF XOR R 


: RSC I I -Wer t des ersten Zeichens 
:des Stringarguments nach R holen 
;Länge zurück 

:0ummy-PUSH wegen Sprung nach 
;2R2BH nach Beendigung 
;Zeichen retten 
:R ■ Länge 
:Platz schaffen 
: E » Zähler 
:Zeichen zurück 
: Zähl er *07 

:3a: String übernehmen 
:Nein: HL * Zeiger auf freien 
Speicherplatz 
:Zeichen abspeichern 
: Zeiger +1 

: Zäh l er -1. Zähler «07 
:Nein: Nächstes Zeichen 
;3a: String übernehmen 


;Klammer zu 7 

:B * Zahl = Länge des neuen 
Strings 

Startpunkt auf 0 setzen 


Einsprung Tür RIGHTS 

I: R = Startpunkt des neuen Strings im Stringargument - 1 
B * Länge des neuen Strings 


2R65 E3 
2R66 4F 

2R67 3EE5 


EX CSP). HL 

LD C.R 

LD R.0E5H 


PTZ retten. HL : Vektor 
: C * R * Startpunkt des neuen 
Strings - 1 


Einsprung für MIDS 

I: B * Länge des neuen Strings 

C * Startpunkt des neuen Strings im St r ingargument - 1 

#2R68 E5 PUSH HL : Vektoradresse retten 
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Teilstring aus dem Stringargument (in X) holen und wieder in X ablegen 
I: X » Stringargument 

B * Länge des gewünschten Teilstrings 

C - Offset zum Startpunkt des Teilstrings im St r ingargument 
0: X * gewünschter Teilstring 


2A69 E5 
2A6A 7E 
2A6B B8 

2A6C 3802 

2A6E 78 
2A6F 110E00 
»2A70 0E00 

2A72 C5 
2A73 CDBF28 

2A76 CI 
2A77 El 
2A78 E5 
2A79 23 
2A7A 46 
2A7B 23 
2A7C 66 
2A7D 68 
2A7E 0600 

2A80 09 

2A81 44 

2A82 40 
2A83 CD5A28 

2A86 6F 
2A87 CDCE29 


2A8A Dl 
2A8B CDDE29 
2A8E C38428 
RIGHTS 

I : CSP - 2) : Vekt. 
(SP) - Zahl 


PUSH HL 

LD A.CHL) 

CP B 

DR C.2R70H 

LD R.B 

LD DE.OOOEH 

LD C.OOH 

PUSH BC - 

CftLL 28BFH 

POP BC 

POP HL 

PUSH HL 

INC HL 

LD B.CHL) 

INC HL 

LD H.CHL) 

LD L.B 

LD B.OOH 

PlDD HL . BC 

LD B.H 

LO C.L 

CRLL 285AH 

LD L.A 

CRLL 29CEH 


POP DE 

CRLL 29DEH 

OP 2884H 


des Str ingarguments 


2R95 

2R96 

2A3~ 



:all 2 AD FH 
=0P CE 

PUSH DE 

Lu n . v DE 5 

3UB 3 


2R99 


TR 2A65H 


: Vektoradresse retten 
:A « Länge des Stringarguments 
:Soll der Teilstring länger als 
:das Stringargument werden *> 
:3a: C auf 0 setzen, gesamtes 
:Stringargument übernehmen 
:Nein: R » gewünschte Länge 

:Startpunkt * 0 
: BC retten 

:A Bytes Platz schaffen 
: DE - Zeiger auf freien Platz 
:BC zurück 

: Vektoradresse zurück 
: Vektoradresse retten 
: Vektoradresse +1 
: HL ■ Zeiger auf St r ingargument 


:BC = Offset zum Startpunkt des 
: neuen Strings 

: HL ■ Startadresse + Offset ■ 
.•Startadresse des neuen Strings 
:BC ■ Startadresse des neuen 
:Str ings 

: Länge und Adresse des neuen 
:Strings in Stringtabelle ablegen 
:L = Länge des neuen Strings 
:Entsprechende Zeichen des 
:St r ingarguments nach (DE) 

: kopieren 

: Vektoradresse des String- 
sarguments zurück nach DE 
:Str ingargument aus Stringtabelle 
:und Stringspeicher löschen ? 
;Neuen String übernehmen 


Mlamme- :u 9 * Dahl 
'ektor acresse nacn DE 
zurück ins Stack 
A * Länge des Stringarguments 
A « Länge - Zahl * Startounkt 
aes neuen Strings 
weiter oei 2A65H 


IM 
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; MID* (rechts vom Gleichheitszeichen) 

: (SP - 2) : Vektor des Str ingarguments 
: (SP) = Zahl (Startpunkt des neuen Strings) 


2A9A ES 
2A9B 7E 
2A9C CDE22A 
2A9F 04 
2AA0 05 
2AA1 CA4A1E 
2AA4 C5 
2AA5 iEFF 


2AA7 FE 29 

2AA9 2805 
2AAB CF 
2AAC 2C 
2AAD C01C2B 
2AB0 CF 
2AB1 29 
2AB2 Fl 
2AB3 E3 
2AB4 01692A 
2AB7 C5 
2AB8 3D 
2AB9 BE 

2ABA 0600 

2ABC DO 


2ABD 4F 
2ABE 7E 
2ABF 91 


2AC0 BB 

2AC1 47 
2AC2 D8 
2AC3 43 

2PIC4 C9 


EX DE. HL 

LD A.(HL) 

CALL 2AE2H 

INC B 

DEC B 

3P Z.1E4AH 

PUSH BC 

LD E.OFFH 


CP 29H 

3R Z.2AB0H 

RST 08H 

DEFB 

CALL 2B ICH 

RST 08H 

DEFB ')' 

POP AF 

EX (SP). HL 

LD BC.2A69H 

PUSH BC 

DEC A 

CP (HL) 

LD B.OOH 

RET NC 


LD C.A 

LD A.(HL) 

SUB C 


CP E 

LD B.A 

RET C 

LD B.E 

RET 


: HL * PTZ 

:A = nächstes Zeichen 
:Start nach B holen 
•.Startpunkt * 0 ? 

:3a: FC-Error 
:Start retten 

:E » Default Länge (Bei fehlender 
:Längenangabe wird der gesamte 
:String ab Start übernommen) 

: Ist das nächste Zeichen 
iKlammer zu ? 

:3a: E ist Länge 

:Nein: Die Längenangabe muß durch 
:ein Komma abgetrennt sein 
:Länge nach E holen 

:Kl ammer geschlossen 7 w 

:A * Startpunkt 

: PTZ retten. Vektoradresse zurück 
: RET-Adr auf 2A69H setzen 

:A » Startpunkt - 1 

:mit Länge des Stringarguments 

: vergleichen 

sLänge des zu erzeugenden 
: St rings * 0 

:String mit der Länge 0 erzeugen 
:wenn der angegebene Startpunkt 
: größer als die Länge des String- 
Arguments ist 
:C * Startpunkt - 1 
:A * Länge der Stringarguments 
:- Startpunkt ergibt Rest länge 
: des Stringarguments ab dem 
:Startpunkt 

: Ist die gewünschte Länge größer 

: a l s die Rest länge ? w 

;B ■ Rest länge 

;3a: B ist Länge 

:Nein: B mit gewünschter Länge 

: l aden 

;und damit Weiterarbeiten 
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VAL 


2AC5 C0072A 
2AC8 CAF827 


2ACB 5F 
2ACC 23 
2ACD 7E 
2ACE 23 
2ACF 66 
2A00 6F 
2AD1 E5 
2AD2 19 
2A03 46 
2AD4 72 
2A05 E3 


2AD6 C5 
2AD7 7E 
2AD8 CD650E 
2A0B CI 
2A0C El 
2AD0 70 
2ADE C9 


CALL 2A07H 

DP Z.27F8H 

LD E.A 

INC HL 

LD A.CHL) 

INC HL 

LD H.CHL) 

LD L.A 

PUSH HL 

BOD HL. DE 

LO B.CHL) 

LD ( HL > . D 

EX C SP) . HL 

PUSH BC 

LD A.CHL) 

CALL 0E65H 

POP BC 

POP HL 

LD (HL).B 

RET 


: Vektor adresse und Länge des 
••Arguments holen. D = OOH 
:Ergebnis = 0 wenn die Länge des 
:Str ingarguments Null ist 
:£ ■ Länge 
: Vektoradresse +i 
:HL * Stringadresse 


;Adresse retten 

:Endadresse des Strings errechnen 
;Nachfol gendes Zeichen holen 
:und durch OOH ersetzen 
:Endadresse retten. Startadresse 
:zurück 

:Zeichen retten 
:A * 1. Zeichen 

:String decodieren. X ist Zahl 
:Zeichen zurück 
;Endadresse zurück 
;Zeichen wieder einsetzen 


: UPRO für LEFTS. RIGHTS und MIDI 

: Prüft ob die Klammer geschlossen wurde und holt die erste Zahl aus dem Stack 


2ADF EB 
2AE0 CF 
2AE 1 29 
2AE2 CI 
2AE3 Dl 
2AE4 C5 
2AE5 43 
2AE6 C9 


EX DE. HL : HL ■ PTZ 

RST 08H jKlammer geschlossen 

DEFB •)' 

POP BC ; BC » RET- Adr 

POP DE ; DE * Zahl 

PUSH BC : RET-Adr wieder ins Stack 

LD B.E :B - Zahl 

RET 


: Gefundenes Token ist nicht im Bereich 80H bis BBH (siehe 1D67H ff) 
; (kein eigenständiger Befehl) 


2AE7 FE7A 

2AE9 C29719 
2AEC C3D941 


CP 

DP 

DP 


7 AH ; Ist es MIDS ? 

jClinks vom Gleichheitszeichen ') 
NZ.1997H ;Nein: SN-Error 

41D9H :3a: DOS 


: I NP 


2AEF CD1F2B 
2AF2 329440 
2AF5 C09340 
2AF8 C3F827 


CALL 2B1FH 

LD ( 4094H ) . A 

CALL 4093H 

3P 27F8H 


:Portadresse nach A holen 
: und abspeichern 
: INP ausführen 
:Wert als INT übergeben 



OUT 


2AFB CD0E2B 
2AFE C39640 


CALL 2BOEH sPortadresse und Wert holen 

OP 4096H ; OUT aus führen 


Argument bei (HL) decodieren ui 
I : HL ■ PT2 
0: DE « Zahl 

A - MSB der Zahl 
Z = 1 wenn Zahl < 256 (MSB 


2B01 D7 RST 

2B02 CD3723 CALL 

2B05 E5 PUSH 

2B06 CD7F0A CALL 

2B09 EB EX 

2B0A Ei POP 

2B0B 7A LD 

2B0C B7 OR 

2BOD C9 RET 


als INT-Wert nach X übergeben 


- 0) 

10H : PTZ erhöhen 

2337H ;Argument decodieren 

HL : PTZ retten 

0A7FH ; HL « X » CINT(X) 

DE. HL :DE - Zahl 

HL :PTZ zurück 

A.D ; A « MSB 

A : MSB * 0 ? 


UPRO für OUT: Holt Portadresse. Wert und bereitet das RAM ab 4096H vor 


2B0E CD1C2B 
2Bil 329440 
2B14 329740 
2B17 CF 
2B18 2C 
2B19 1801 


CALL 2B ICH 

LD ( 4094H ) . A 

LD ( 4097H ) , A 

RST 08H 

DEFB 

OR 2B1CH 


sPortadresse holen 
: Für I NP 

:und OUT abspeichern 
: Komma angegeben ? 

;Wert holen und Rücksprung 


Argument bei (HL) decodieren als 
FC-Error wenn das Ergebnis nicht 
I: HL = PTZ 
0: A « Zahl 
DE * Zahl 


INT-Wert nach X übergeben 
im Bereich von 0 bis 255 liegt 


2B1B D7 
2B1C CD3723 
2B1F CD052B 
2B22 C24A1E 
2B25 2B 
2B26 D7 
2B27 7B 
2B28 C9 


RST 10H 

CALL 2337H 

CALL 2B05H 

OP NZ.1E4AH 

DEC HL 

RST 10H 

LD A.E 

RET 


: PTZ erhöhen 
:Argument decodieren 
: Im Bereich von 0 bis 255 ? 
;Nein: FC-Error 
: PTZ -1 
:und wieder 
: A = Zahl 


erhöhen 



LL IST 


2B29 3E0 1 
2B2B 329C40 


LD A.01H :Ausgabeflag auf Druckerausgabe 

LO C 409CH ) . A : setzen 


LIST 


2B2E CI 
2B2F CD101B 
2B32 C5 


POP BC 

CALL 1B10H 

PUSH BC 


RET-Adr löschen 
Zeilennummern holen 
ZP auf Startzeile retten 


2B33 21FFFF 
2B36 22A240 
2B39 El 
2B3A Dl 
2B3B 4E 
2B3C 23 
2B3D 46 
2B3E 23 
2B3F 78 
2B40 Bl 
2B41 CA191A 
2B44 CDDF41 
2B47 CD9B1D 
2B4A C 5 
2B4B 4E 
2B4C 23 
2B4D 46 
2B4E 23 
2B4F C5 
2B50 E3 
2B51 EB 


2B52 DF 


2B53 CI 

2B54 DA 1 8 1 A 
2B57 E3 

2B58 E5 
2B59 C 5 
2B5A EB 
2B5B 22EC40 
2B5E CDAFOF 
2B6 1 3E20 
2963 El 


LD 

LD 

POP 

POP 

LD 

INC 

LD 

INC 

LD 

OR 

DP 

CALL 

CALL 

PUSH 

LD 

INC 

LD 

INC 

PUSH 

EX 

EX 


RST 


POP 

DP 

EX 

PUSH 

PUSH 

EX 

LD 

CALL 
LD 
o OP 


HL.OFFFFH 
C40A2H) .HL 
HL 
DE 

C. CUL) 

HL 

B . C HL J 
HL 

A. B 
C 

Z. 1A19H 
41DFH 
1D9BH 
BC 

C. CHL) 

HL 

B. CHL) 

HL 

BC 

CSP) .HL 
DE. HL 


1 SH 


BC 


C . 1A18H 
CSP) .HL 

HL 

BC 

DE. HL 

C40ECH) .HL 
OFAFH 
A.20H 
HL 


: Aktuel le ZN auf 65535 setzen 

: HL * ZP auf Zeile 

; DE = ZN der Endzeile 

; BC * ZP auf die nächste Zeile 


: Programmende erreicht 0 
: ZP - OOOOH ? 

: Da : Fertig 
: DOS 

:Shift-9 oder Break gedrückt ? 

: ZP retten 

:BC * Zeilennummer der aktuellen 
; Zei l e 


:Zei l ennummer retten 
;Zeiger retten. ZN zurück 
: DE * Zeilennummer der aktuellen 
:Zeile. HL = Zeilennummer der 
: Endzei l e 

: Ist die aktuelle Zeilennummer 
:schon größer als die der End- 
zeile ? 

:Zeiger auf die aktuelle Zeile 
zurück nach BC 
; Da : Fertig 

;Nein: Endzeilennummer retten 
: HL = ZP auf die nächste Zeile 
: ZP aur die nächste Zeile retten 
:ZP auf die aktuelle Zeile retten 
: HL * aktuelle Zeilennummer 
:als '.'-Zeile abspeichern 
; Zei l ennummer ausgeben 
: A = Leerzeichen 
:Zeiger auf die aktuelle Zeile 
zurück nach HL 



2B64 CD2A03 
2B67 CD7E2B 

2B6A 2AA740 

2B6D CD752B 
2B70 CDFE20 

2B73 18BE 


CALL 

CALL 

LO 

CALL 

CALL 

3R 


032AH 

2B7EH 

HL . ( 40A7H ) 

2B75H 
20 FEH 

2B33H 


Leerzeichen ausgeben 

;Zeile ab CHL) decodieren und i 

: Zei l enbuf f er ablegen 

; HL = Startadresse des Zeilen- 

: buf f ers 

: Zeile ausgeben 

:Neue Zeile auf dem Bildschirm 
: beginnen 

:Nächste Zeile bearbeiten 


UPRO für LIST 

Text ab CHL) ausgeben. 00H ist Textende 
I : HL * Zeiger auf auszugebenden Text 
0: HL * Zeiger auf Textende COOH) 


2B75 7E 
2B76 B7 
2B77 C8 
2B78 C02A03 
2B7B 23 
2B7C 18F7 


LD A.CHL) 

OR A 

RET Z 

CALL 032AH 

INC HL 

3R 2B75H 


; A - Nächstes Zeichen 
;Zeilenende erreicht ? 
:3a: Fertig 

:Nein: Zeichen ausgeben 
: Zeiger +1 
: Nächstes Zeichen 


UPRO für LIST und EDIT 

Zeile ab CHL) decodieren und im Zeilenbuffer ablegen 
I : HL = Zeiger auf Programmtext 


2B7E E5 
2B7F 2AA740 

2B82 44 
2B83 40 
2B84 El 
2B85 16FF 

2B87 1803 


PUSH 

LO 

LD 

LO 

POP 

LD 

3R 


HL 

HL . C40A7H) 


B. H 

C. L 
HL 

D. OFFH 
2B8CH 


:Zeiger retten 

:HL = Startadresse des Zeilen- 
: buf fers 

:BC * Startadresse des Zeilen- 
: buf fers 
.•Zeiger zurück 

:D * Zahler (maximale Länge = 

: 255 Zeichen) 

: wei ter bei 2B8CH 


: Nächstes Zeichen decodieren 


2B89 03 
2B8A 15 

2B8B C8 


INC BC 

DEC D 

RET Z 


: Ze i ger +1 

:Zähler -1. maximale Länge 
: er reicht ? 

:3a: Fertig 
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Zeile ab CHL) decodieren und in CBC) ablegen 
I : HL * Zeiger auT Programmtext 
BC = Zeiger auf Buffer 
D = maximale Zeilenlange 


2B8C 7E 
2B8D B7 
2B8E 23 
2B8F 02 
2B90 C8 
2B91 F2D23F 

2B94 FEFB 
2B96 2008 
2B98 OB 
2B99 OB 
2B9A OB 
2B9B OB 
2B9C 14 
2B9D 14 
2B9E 14 
2B9F 14 
2BA0 FE95 
2BA2 CC240B 


2BA5 D67F 
2BA7 E5 
2BPi3 5F 
2BA9 CDAD39 


2BAC 7E 
2BAD B7 
29AE 23 
2BAF F2AC2B 

2BB2 ID 
2BB3 20F7 


2BB5 E67F 
2BB7 02 
2BB8 03 
2BB9 15 
2BBA CAD828 

2BBD 7E 
2BBE 23 
23SF 37 
2SC 0 -2B72B 
2BC 3 El 
2BC4 l 8C6 


LD A.CHL) 

OR ft 

INC HL 

LD CBO.ft 

RET Z 

DP P.3FD2H 

CP OFBH 

DR NZ.2BR0H 

DEC BC 

DEC BC ' 

DEC BC 

DEC BC 

INC D 

INC D 

INC D 

INC D 

CP 95H 

CftLL Z.0B24H 


SUB 7FH 

PUSH HL 

LD E.ft 

CftLL 39ftDH 


LD A.CHL) 

OR ft 

INC HL 

DP P . 2BftCH 

DEC E 

DR NZ.2BRCH 


ftND 7FH 

LD CBO.ft 

INC BC 

DEC D 

DP Z.28D8H 

LD ft. CHL) 

INC HL 

DR ft 

POP HL 

DR 2B8CH 


:A * nächstes Zeichen 
:Zeilenende erreicht ? 

: Ze i ger +1 

.•Zeichen abspeichern 
: Da : Fertig 

jweiter bei 3FD2H wenn Kein Token 
: gefunden wurde 

gefunden CREM) ? 

:Nein: weiter bei 2BA0H 
: Da : die letzten 4 Zeichen wieder 
: löschen da das Apostroph als 
: : : REM ' abgespeichert wird 

: Zähler +4 


: ’ELSE ' -Token gefunden 7 
; Da : Bufferzeiger -1 
: C 'ELSE* wird als ' :ELSE‘ 

: abgespeichert ) 

:A » Tokenwert - 7FH 
;Zeiger retten 
:E = Tokenwert 
:Colour-Token gefunden ? 

: HL zeigt auf den Anfang der 
:entsprechenden Keywordtabel l e 
: ft * nächstes Zeichen 
:nächstes Keyword erreicht ? 

: Zeiger +1 

:Nein: HL bis zum nächsten Key- 

:word erhöhen 

:0a: Tokenzähler -1 

:Zeiger weiter erhöhen bis 

entsprechendes Heyword 

erreicht ist 

:Bit7 ausblenden 

:Zeichen ablegen 

:Buf rerzeiger +1 

: Zähl er -1 

:Fertig wenn die maximale Zeilen- 
: länge erreicht wurde 
: ft = nächstes Zeichen 
: Tabel l enze iger +1 
:nächstes fteyword erreicht 
:Nein: Zeichen im Buffer ablegen 
:Da: Zeilenzeiger zurück 
:Nächstes Zeichen bearbeiten 



DELETE 


2BC6 

2BC9 

2BCA 

2BCB 

2BCC 

2BCF 


C5 

CD2C1B 

3005 


2B01 54 
2BD2 50 


2B03 E3 


2B04 E5 
2B05 DF 
2BD6 D24A1E 


2B09 212919 
2B0C C0A728 
2BDF CI 
2BE0 21E81A 

2BE3 E3 


CALL 1B10H 

POP OE 

PUSH BC 

PUSH BC 

CALL 1B2CH 

3R NC.2B06H 

LD D.H 

LD E.L 

EX (SP). HL 

PUSH HL 

RST 18H- 

3P NC.1E4AH 


LO HL.1929H 

CALL 28A7H 
POP BC 

LD HL.1AE8H 

EX C SP) .HL 


:Start- und Endzeile holen 
: OE - ZN der Endzeile 
:Zeiger auf die Startzeile 
:zweimal retten 
:Endzeile suchen 

:FC-Error wenn die Endzeile nicht 
:existiert 

:DE « Zeiger der Endzeile (zeigt 
:auf die der Endzeile folgende 
; Zei l e) 

;Zeiger der Endzeile retten 
: HL - Zeiger auf die Startzeile 
: Zeiger auf die Startzeile retten 
:Beide Zeiger vergleichen 
;FC-Error wenn die Zeilen nicht 
jaufeinanderfolgend angegeben 
: wurden 

; HL « Zeiger auf Text ' READY ' 
:Text ausgeben 

: Zeiger auf die Startzeile zurück 
: RET- Adr auf 1AE8H setzen C POP OE 
:und Zeiger erneuern) 

: Zeiger der Endzeile zurück 


ZeileCn) löschen 

I: BC * Zeiger auf die Startzeile 

HL - Zeiger der Endzeile (zeigt auf nächste Zeile nach der Endzeile) 


2BE4 EB 
2BE5 2AF940 
2BE8 1A 
2BE9 02 

2BEA 03 
2BEB 13 
2BEC DF 
2BED 20F9 
2BEF 60 
2BF0 69 
2BF 1 22F940 
2BF4 C 9 


EX 

LD 

LD 

LD 

INC 

INC 

RST 

3R 

LD 

LD 

LD 

RET 


DE. HL 

HL . ( 40F9H ) 
A . ( DE ) 

(BC) .A 

BC 

DE 

18H 

NZ.2BE8H 


( 40F9H ) .HL 


:DE = Zeiger auf die Endzeile 
; HL ■ Endadresse des Programms 
sNächste Zeile 

.•über die zu löschende Zeile 
: kopieren 
: Zeiger +1 
: Zeiger +1 

: Programmende erreicht ? 

;Nein: weiter kopieren 
: HL * neue Endadresse des 
: Programms 
: abspeichern 
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CSAVE 




2BF5 CD3723 
2BF8 E5 
2BF9 CD132A 

2BFC F5 
2BFD C5 
2BFE D5 
2BFF E5 
2C00 CD3F02 
2C03 El 
2C04 Dl 
2C05 CI 
2C06 Fl 
2C07 1A 
2C08 CD1F02 
2C0B 2AA440 
2C0E EB 
2C0F 2AF940 
2C12 1A 
2C13 13 
2C14 CD1F02 
2C17 DF 
2C18 20F8 
2C1A 00 
2CIB 00 
2C1C 00 
2C1D El 
2C1E C9 


CALL 

PUSH 

CALL 

PUSH 

PUSH 

PUSH 

PUSH 

CALL 

POP 

POP 

POP 

POP 

LD 

CALL 

LD 

EX 

LD 

LD 

INC 

CALL 

RST 

3R 

NOP 

NOP 

NOP 

POP 

RET 


2337H 

HL 

2A13H 


AF 

BC 

DE 


HL 

023FH 

HL 

DE 

BC 

AF 

A . C DE 1 
021 FH 

HL . C40A4H) 
DE. HL 

HL.C40F9H) 
A , ( DE D 
DE 

021 FH 
18H 

N2.2C12H 


:Filenamen holen 
:PTZ r-tten 

:1. Zeichen des Stringarguments 
:nach A holen 
:Zeichen retten 
:Register retten 


;Leader & Sync schreiben 
:Register zurück 


sZeichen zurück 

:1. Zeichen nochmal laden 

:Filename schreiben 

:HL * Startadresse des Programms 

: DE * HL 

:HL = Endadresse des Programms 
:Zeichen holen 
: Zeiger +1 

.•Zeichen auf Cassette schreiben 
: Programmende erreicht 
:Nein: nächstes Zeichen 


HL 


: PTZ zurück 


: CLOAD 


2C1F 00 
2C20 00 
2C21 00 
2C22 00 
2C23 00 
2C24 00 
2C25 00 
'k-' 2C26 00 

2C27 AF 
2C28 012F23 


NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

XOR A 

LD BC.232FH 


w 



Einsprung Tür VERIFY (siehe 3F34H) 


*2C29 2F 
*2C29 23 

2C2B F5 
2C2C 2B 
2C2D 07 
2C2E 3E00 
2C30 2807 
2C32 CD3723 
2C35 CD1329 
2C38 19 
2C39 6F 
2C39 Fl 
2C3B B7 
2C3C 67 
2C3D 222141 
2C40 CC401B 
2C43 292141 
2C46 EB 
2C47 F5 
2C48 C5 
2C48 05 
2C49 E5 
2C4B CD4C02 
2C4E El 
2C4F 01 
2C50 CI 
2C5 1 Fl 
2C52 CDED01 
2C55 IC 
2C56 10 
2C57 2803 
2C59 BB 
2CS9 2037 

2C5C 299440 
2C5F 0603 

2C61 CDED01 
2C64 5F 
2C65 96 

2C66 92 


CPL 

INC HL 
PUSH 9F 

DEC HL 

RST 10H 

LO 9. OOH 

3R Z.2C39H 

CftLL 2337H 

CftLL 2R13H 

LD 9. (DE) 

LD L . 9 

POP 9F 

OR 9 

LD H , 9 " 

LD (4121H).HL 

C9LL Z.1B4DH 

LD HL.C4121HJ 

EX OE. HL 

PUSH 9F 

PUSH BC 

PUSH DE 

PUSH HL 

C9LL 024CH 

POP HL 

POP DE 

POP BC 

POP 9F 

C9LL 01EDH 

INC E 

OEC E 

3R Z.2C5CH 

CP E 

3R NZ.2C93H 

LD HL.C4094H) 

LD B.03H 

C9LL 01EDH 

LD E . 9 

SUB (HL) 

9ND 0 


; 9 <> OOH 
: PTZ +1 
:Flag retten 
: PTZ -1 

: Filenamen angegeben *> 

: 9 = Default-Filename 
:Nein: weiter bei 2C39H 
:3a: Filenamen 
:nach 9 holen 

;L ■ Filename 
:Flag zurück 
: CL090 ? 

: H - Flag 

:Flag und Filenamen abspeichern 
:3a: NEW 

:Flag und Filenamen zurück 
;0 • Flag. E * Filename 
:Register retten 


: Leader und Sync suchen 
:Register zurück 


:1 Byte lesen (Filename) 
:Filename angegeben ^ 

:Nein: weiter bei 2C5CH 
:3a: Richtiges File gefunden 7 
;Nein: Beim nächsten File 
; probieren 

: HL * Startadresse des Programms 
:B = Zähler (3 mal OOH kenn- 
zeichnet das Programmende) 

: 1 Byte l esen 
:E * Byte 

:steht dieses Byte im Speicher 

:3a: Dann ist 9 = OOH 

:Mit Flag verknüpfen 

:3a: 9 ist OOH bei CL09D oder 

;wenn bei VERIFY das Byte schon 

:im Speicher stand. 

: War jedoch bei VERIFY das 
:Ergebnis des Vergleichs <> 0 so 
; : s t n < » 0 





2C67 2021 
2C69 73 
2C6A CD6C19 
2C6D 7E 
2C6E B7 
2C6F 23 
2C70 20ED 
2C72 CDE401 
2C75 10EA 


3R NZ.2C8AH 

LD (HL) .E 

CALL 196CH 

LD fl . ( HL ) 

OB fl 

INC HL 

3R NZ.2C5FH 

CflLL 01E4H 

D3NZ 2C61H 


: weiter bei 2C8AH wenn fl o 0 ist 
:Byte abspeichern 
:Noch Speicher frei *> 

:War das gelesene Byte = OOH *> 

beiger +1 

: Nein : nächstes Byte 
:3a: * blinken 

:Zähler -1. nächstes Byte lesen 


2C77 22F940 
2C7A 212919 
2C7D C0A728 
2C80 00 
2C81 00 
2C82 00 
2C83 2AA440 
2C86 E5 
2C87 C3E81A 


w 

; Fehler bei VERIFY 


LD 

LD 

CflLL 

N0P 

NOP 

NOP 

LD 

PUSH 

DP 


C 40F9H ) . HL : Neues Progr ammende abspeichern 
HL.1929H jText ’ READY' 

28A7H sausgeben 


HL.C40A4H) : HL * Startadresse des Programms 

HL ; HL retten 

1AE8H sfllle Zeiger im Programmtext 

.•erneuern 


2C8A 21A52C 
2C80 CD7935 
2C90 C3181A 


LD HL . 2CA5H ; HL : Text 'BAD' 

CflLL 3579H sText und Ton ausgeben 

3P 1A18H sZurück zum aktiven Befehlsmodus 


: Filename nicht gefunden 

LD C4426H1.A 

LD B.03H 


2C93 322644 
2C96 0603 


2C98 CDED01 
2C9B B7 
2C9C 20F8 
2C9E 10F8 


CflLL 01EDH 

OR fl 

DP NZ.2C96H 

D3NZ 2C98H 


2CA0 00 
2CA1 00 
2CA2 00 
2CA3 1 8A2 


NOP 

NOP 

NOP 

DP 


2C47H 


: Text 'BAD' 


befundenen Filename anzeigen 
sEnde des Programms suchen 
: ( 3 x OOH) 

:Byte lesen 
:00H gefunden ? 

:Nein: nächstes Byte 

:3a: Zähler - l . nächstes Byte 

: lesen 


:CL0flD neu versuchen 


2CA5 42 
2CA6 41 
2CA7 44 
2CA8 OD 
2CA9 00 


II 


X * PEEK ( X 


2CAA C07F0A 
2CAD 7E 
2CAE C3F827 

POKE 


CALL 0A7FH : HL = X ■ CINTCX) » Adresse 

LD A.CHL) ; A » Inhalt des Speicherplatzes 

OP 27F8H : A als INT übergeben 


2CB1 

2CB4 

2CB5 

2CB6 

2CB7 

2CBA 

2CBB 

2CBC 


CD022B 

05 

CF 


CALL 2B02H 

PUSH OE 

RST 08H 

OEFB 

CALL 2BICH 

POP DE 

LD (DE).A 

RET 


: Adresse nach OE holen 
.•Adresse retten 
: Komma angegeben *» 

: Wer t holen 

;Adresse zurück 

:Wert im Speicher ablegen 


PRINT USING 


2CB0 CD3823 
2CC0 CDF40A 

2CC3 CF 
2CC4 3B 
2CC5 EB 
2CC6 2A2141 
2CC9 1808 


CALL 

CALL 

RST 

DEFB 

EX 

LO 

OR 


2338H 

0AF4H 

08H 


: Formatstring holen 
: TM-Er ror wenn kein String 
: gefunden wurde 
: Danach muß folgen 


DE. HL : DE ■ PTZ 

HL.C4121H) : HL : Vektor des Strings 

2CD3H ; weiter bei 2CD3H 


Wiedereinsprung wenn mehrere Zahlenwerte mit dem selben Formatstring 
ausgegeben werden sollen 


2CCB 3ADE40 

2CCE B7 

2CCF 280C 
2CD1 Dl 

2CD2 EB 


LD A . ( 400EH ) 

OR A 

OR Z.2CDDH 

POP DE 

EX DE. HL 


: A * Zeichen nach dem Trennungs- 
zeichen zur nächsten Variablen 
;Steht nach dem Trennungszeichen 
:noch eine Variable ? 

:Nein: FC-Error 

: Vektoradresse des Formatstrings 
zurück 

: HL s Vektor. DE « PTZ 


PRINT USING ausführen 

I : DE * PTZ auf auszugebende Variable 
HL : Vektor des Formatst r ings 


2CD3 ES 
2CD4 AF 
2CD5 32DE40 
2CD8 BA 
2CD9 F5 
2CDA ne 
2CDB 46 
2C0C BO 
2C0D CA4A1E 


PUSH HL 

XOR A 

LD C 400EH ) . A 

CP D 

PUSH AF 

P'JSH DE 

LD B.CHL) 

OR B 

OP Z.1E4AH 


: Vektoradresse retten 
: A * 0 

: Zeichen löschen 
:CV ■ 1 . Z » 0 
: AF retten 
: PTZ retten 

:B = Länge des Formatstr ings 
: Null st ring *> 

:0a: FC-Error 



2CE0 23 

INC 

HL 

; Vektoradresse +1 

2CE1 4E 

LD 

C.(HL) 

: HL » Stringzeiger 

2CE2 23 

INC 

HL 


2CE3 66 

LD 

H. (HL) 


2CE4 69 

LD 

L.C 


2CE5 18 IC 

DR 

2D03H 

;weiter bei 2D03H 

'X' gefunden 




I : B » Rest l änge des 

Strings 



HL » Zeiger auf St 

ring (auf 

nächstes 

Zeichen hinter ’x") 

0: C » Anzahl der zw 

ischen den beiden ’ 

x' gefundenen Leerzeichen + 2 

2CE7 58 

LD 

E . B 

: Zäh l er nach E retten 

2CE8 E5 

PUSH 

HL 

;Zeiger retten 

2CE9 0E02 

LD 

C.02H 

:C * Zähler für Leerzeichen 
; ( 2 für die beiden Begrenzungs- 
s Zeichen) 

2CEB 7E 

LD 

A. (HL) 

{Nächstes Zeichen holen 

2CEC 23 

INC 

HL 

:Zeiger +1 

2CED FE25 

CP 

25H 

{2. 'X’-Zeichen gefunden ? 

2CEF CA172E 

DP 

Z.2E17H 

{Da: Fertig 

2CF2 FE20 

CP 

20H 

{Leerzeichen gefunden ? 

2CF4 2003 

DR 

NZ.2CF9H 

{Neins ' X ’ als Textzeichen über- 
nehmen (Zwischen den beiden 
{'X'-Zeichen dürfen nur Leer- 
zeichen stehen) 

2CF6 0C 

INC 

C 

{Zähler +1 

2CF7 10F2 

DDNZ 

2CEBH 

{Nächstes Zeichen holen 
{Stringzähler -1 

2CF9 El 

POP 

HL 

{Str.ingzeiger zurück wenn kein 
:2. ’ X'-Zeichen gefunden wurde 

2CFA 43 

LD 

B.E 

{Alten Zählerstand zurück 

2CFB 3E25 

LD 

A.25H 

{und ’X'-Zeichen als Textzeichen 
{ übernehmen 

Das gefundene Zeichen 

ist kein 

Format i erungszeichen sondern Teil eines 

auszugebenden Textes 




2CFD CD492E 

CALL 

2E49H 

{’+’ ausgeben wenn 0 <> 0 

2D00 CD2A03 

CALL 

032AH 

{Zeichen ausgeben 

Formatstring bearbeiten 



I: (SP - 4) : Vektor 

des Formatst r ings 


(SP -2) ■ AF : A = 
( SP) * PTZ 

00H . CY 

1 . Z - 0 

(siehe 2CD9H ) 

B * Lange des String« 

(bzw. Restlänge) 

HL * Zeiger 

auf String 


2D03 AF 

XOR 

A 

{A - 00H 

2D04 5F 

LD 

E . A 

:Anzahl der auszugebenden 
: VorKommastel len auf 0 setzen 

2005 57 

LD 

D.A 

{Formatbyte auf 0 setzen 


: (Aufbau des Formatbytes 
{Siehe 0FBEH3 


2D06 C0492E 

CftLL 

2E49H 

2009 57 

LD 

D.ft 

2D0ft 7E 

LD 

A. CHL) 

2D0B 23 

INC 

HL 

2D0C FE21 

CP 

21H 

2D0E Cftl42E 

3P 

Z.2E14H 

2011 FE23 

CP 

23H 

2013 2837 

3R 

Z.2D4CH 

2015 05 

OEC 

B 

2016 CftFE2D 

3P 

Z.2DFEH 

2019 FE2B 

CP 

2BH 

2D1B 3E08 

LD 

ft . 08H 

2010 28E7 

3R 

Z.2D06H 

20 1F 2B 

DEC 

HL 

2020 7E 

LD 

ft. CHL) 

2021 23 

INC 

HL . 

2022 FE2E 

CP 

2EH 

2024 2840 

3R 

Z.2D66H 

2026 FE25 

CP 

25H 

2028 28BD 

3R 

Z.2CE7H 

2D2ft BE 

CP 

CHL) 

2D2B 2000 

3R 

NZ.2CFDH 

2020 FE24 

CP 

24H 

2D2F 2814 

3R 

Z.2D45H 

2031 FE2ft 

CP 

2AH 

2033 20C8 

3R 

NZ.2CFDH 

•**’ gefunden 



2035 78 

LD 

ft.B 

2036 FE02 

CP 

02H 

2038 23 

INC 

HL 

2039 3803 

3R 

C.2D3EH 

2D3B 7E 

LD 

ft. CHL) 

2D3C FE24 

CP 

24H 

2D3E 3E20 

LO 

ft . 20H 

2D40 2007 

3R 

NZ.2D49H 

2042 05 

DEC 

B 

2043 IC 

INC 

E 

2D44 FEftF 

CP 

OftFH 


’ ausgeben wenn D <> 0 
:Formatbyte nach D 
:nächstes Zeichen holen 
••Zeiger + l 
: ' ! * gefunden ? 

:3a: weiter bei 2E14H 
: ' # ' gefunden ? 

:3a: weiter bei 2D4CH 
;Zähler -1. Stringende erreicht ? 
:3a: weiter bei 20FEH 
gef unden ? 

:Bit 3 des Formatbytes setzen 
:3a: nächstes Zeichen holen 
: Zeiger -1 

.•Zeichen nochmal holen 
: Zeiger +1 
: ' . ’ gefunden ? 

;3a: weiter bei 2D66H 
: 'S' gefunden ? 

:3a: weiter bei 2CE7H 
:Zweimal das gleiche Zeichen ? 
:Nein: Zeichen nicht erkannt 
: * s J ’ gefunden 
:3a: weiter bei 2D45H 
gefunden ? 

:Nein: Zeichen nicht erkannt 


: Rest lange nach ft 

:weniger als 2 Zeichen übrig 7 

••Zeiger +l 

:3a: weiter bei 203EH 
:nächstes Zeichen holen 
: Ist es ’s' ? 

:Bit 5 (zur "»'-Ausgabe) setzen 
••Nein: Nur ’**' gefunden 
:3a: "*»$’ gefunden. Zähler -1 
;Vorkommastel len +1 


’ i $ ’ gef unden 

»2D45 ftF 
2D46 C610 
2048 23 
2D49 IC 
2D4ft 82 


XOR ft 

ftOD ft.IOH 

INC HL 

INC E 

ftOO ft . D 

LD D.ft 


: ft * 0 

:Bit 4 C für ’S* vor Zahl) setzen 

:Zeiger +1 

: v/orkommastel len fl 

; ft mit altem Formatbyte ver- 

: knüpfen 

:D * Formatbyte 


2D4B 



gefunden 


2D4C IC 

INC 

E 

: Vorkommastel len +1 

2D4D OEOO 

LD 

C .OOH 

:Zähler für die Textausgabe 
: löschen 

2D4F 05 

DEC 

B 

:Stringzähler -1 

2D50 2847 

3R 

Z.2D99H 

••weiter bei 2D99H wenn es das 
: letzte Zeichen war 

2052 7E 

LD 

8. (HL) 

:nächstes Zeichen holen 

2053 23 

INC 

HL 

; Zeiger +1 

2D54 FE2E 

CP 

2EH 

C Dez i mal punkt ) gefunden ? 

2056 2818 

3R 

Z.2D70H 

:3a: weiter bei 2D70H 

2058 FE23 

CP 

23H 

: ' # ' gefunden ? 

2058 28F0 

3R 

Z.2D4CH 

:3a: wieder zurück nach 2D4CH 

205C FE2C 

CP 

2CH 

C Tausendertrennung) 
: gefunden ? 

2D5E 2018 

3R 

NZ . 2D78H 

:Nein: weiter bei 2D78H 

' . ' gefunden 

2060 78 

LO 

8 . D 

:Bit 6 des Formatbytes 

2061 F640 

OR 

40H 

: setzen 

2063 57 

LD 

0.8 


2D64 18E6 

3R 

2D4CH 

;Nächstes Zeichen holen 

' vor gefunden 

2066 7E 

LD 

8. (HL) 

: 8 = nächstes Zeichen 

2067 FE23 

CP 

23H 

:Ist das nächste Zeichen 
: ein ? 

2068 3E2E 

LD 

8.2EH 

: 8 = ' . ’ 

2D6B 2090 

3R 

NZ.2CFDH 

:Nein: als Textzeichen 

: übernehmen 

2060 0E01 

LD 

C ,01H 

.•Zähler der Nachkommastellen au 
:1 setzen (für den Dezimalpunkt 

2D6F 23 

INC 

HL 

: Zeiger +1 

nach gefunden 

2D70 OC 

INC 

C 

:Nachkommastel len +1 

2D7 1 05 

DEC 

B 

: Zähler -1 

2D72 2825 

3R 

Z . 2D99H 

:weiter bei 2D99H wenn String 
: zuende 

2074 7E 

LD 

8. (HL) 

:Nächstes Zeichen holen 

2D75 23 

INC 

HL 

: Zeiger +1 

2D76 FE23 

CP 

23H 

: Ist es ein 

2078 28F6 

3R 

Z.2D70H 

:3a: Nachkommastellen +1 
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: Soll die Zahl im Exponentialformat ausgegeben werden ? 
: (Viermal Hochpfeil hintereinander) 


2D7A DS 

PUSH 

OE 

Formatbyte und Vorkommastel len- 
zähler retten 

207B 119720 

LD 

DE . 2D97H 

RET-Adr auf 2D97H setzen 

2D7E 05 

PUSH 

DE 


2D7F 54 

LO 

D.H 

OE = Stringzeiger 

2080 50 

LD 

E.L 


2081 FE5B 

CP 

5BH 

Wurde ein Hochpfeil gefunden ? 

2083 CO 

RET 

NZ 

Nein: RET nach 2097H 

2084 BE 

CP 

(HL) 

2 x Hochpfeil ? 

2085 C0 

RET 

NZ 

Nein: RET nach 2D97H 

2086 23 

INC 

HL 

Zeiger +1 

2087 BE 

CP 

CHL) 

3 x Hochpfeil ? 

2088 C0 

RET 

NZ - 

Nein: RET nach 2097H 

2089 23 

INC 

HL 

Zeiger +1 

2D8A BE 

CP 

(HL) 

4 x Hochpfeil ? 

208B CO 

RET 

NZ 

Nein: RET nach 2D97H 

2D8C 23 

INC 

HL 

Zeiger + 1 

2080 78 

LD 

R.B 

A ■ Stringzahler 

208E 0604 

SUB 

04H 

4 abziehen. Überlauf 

2090 08 

RET 

C 

Ja: Die 4 Hochpfeile gehörten 
nicht alle zum Formatstring 

Viermal Hochpfeil 

gefunden : 

Zahl im Exponentialformat ausgeben 

2091 Dl 

POP 

OE 

RET-Adr löschen (2D97H) 

2092 01 

POP 

OE 

Formatbyte und Anzahl der 
Vorkommastellen zurück 

2093 47 

LD 

B.R 

B' » Stringzähler 

2D94 14 

INC 

D 

Bit 0 (für Exponent ial ausgabe) 
setzen 

2095 23 

INC 

HL 

Zeiger +1 

2096 CAEB01 

JP 

Z.001EBH 

Wird nie ausgeführt da Z < > 0 
(wegen 2D94H) 

Keine Exponent ia l ausgabe 



*2097 EB 

EX 

DE. HL 

HL * Alter Stringzeiger 

* 01 

POP 

DE 

Formatbyte und Anzahl der Vor- 
kommastellen zurück 

Letztes Zeichen des Strings 

war ’ . ' oder ' # ’ 


2D99 7 A 

LD 

R.D 

A = Formatbyte 

2D9A 2B 

OEC 

HL 

Zeiger -l 

2D9B IC 

INC 

E 

Vorkommastellen *1 

209C E608 

RND 

08H 

Positives Vorzeichen ausgeben 




•:3it 3 3 esetzt 

20 9E CO". 5 

:r 

' J Z . 2CB5H 

Ja: Me it er bei 2DBSH 

J.DA0 10 

SEC 

E 

nein: vcr^ommastei len -1 
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w 


2DA1 78 
2DA2 B7 
20A3 2810 
2DA5 7E 
2DA6 D62D 
2DA8 2806 
2DAA FE FE 
2DAC 2007 
20AE 3E08 

2DB0 C604 

2DB2 82 
2DB3 57 
2DB4 05 


LD A.B 

0R R 

3R Z.2DB5H 

LO A.(HL) 

SUB 2DH 

JR Z.2DB0H 

CP OFEH 

JR NZ.2DB5H 

LD A.08H 

ADD A.04H 

ADD A.D 

LD D.A 

DEC B 


.•Noch Stringzeichen übrig ° 

:Nein: weiter bei 2DB5H 

; Ja : A * nächstes Zeichen 

: ' - * gefunden 7 

;Ja: weiter bei 2DB0H 

;'+• gefunden ? (FEH + 2DH - 2BH ) 

:Nein: weiter bei 2DB5H 

; Ja : Bit 3 setzen (Vorzeichen 

: angeben) 

:Bit 2 setzen (Vorzeichen auch 
:hinter der Zahl ausgeben) 

:mit Formatbyte verknüpfen 
:Formatbyte zurückschreiben 
:Str ingzahler -1 


: Formatstring fertig bearbeitet 
: I: B * Stringzahler 

t C * Anzahl der Nachkommastellen + 1 (für Dez i ma l punkt ) 

^ D = Formatbyte 

; E = Anzahl der Vorkommastellen 


2DB5 El 
2DB6 Fl 
2DB7 2850 
2DB8 C5 
2DBA 05 
2DBB CD3723 
2DBE Dl 
2DBF CI 
2DC0 C5 
2DC1 E5 
2CC2 43 
2DC3 78 
2DC4 81 
2DC5 FE 19 
2DC7 D24A1E 


20CA 7 A 
2DCB F680 

2DCD CDBEOF 


2DC0 CDA723 
2003 El 
2DD4 2B 
2DC5 D7 
2DD6 37 
2007 2900 


POP 

POP 

JR 

PUSH 

PUSH 

CALL 

POP 

POP 

PUSH 

PUSH 

LD 

LD 

ADD 

CP 

JP 


HL 

AF 

Z.2E09H 

BC 

DE 

2337H 

DE 

BC 

3C 

HL 


19H 

NC . 1E4AH 


LD A.D 

OR 80H 

CALL OFBEH 


CALL 

POP 

DEC 

RST 


JR Z.2DE6H 


: PTZ zurück 

: Fl ag zurück (siehe 2CD9H ) 

:Fertig wenn Flag = 0 
: Register retten 

: Auszugebenden Zahlenwert holen 
:Register zurück 

.•Stringzähler retten 
: PTZ retten 

:B = Anzahl der Vorkommastellen 

:A » Vorkommastellen 

:+ Anzahl der Nachkommastellen 

;mehr als 24 Stellen ausgeben 7 

:Ja: FC-Error. die maximale 

: St el l enzah l ist 24 

: ( 1 Stelle Vorzeichen 

: 17 Stellen DBL-Format 

; 1 Stelle Dezimalpunkt 

: 4 Stellen Exponent i a l ausgabe 

; 1 Stelle Vorzeichen nach Zahl) 

: A * Formatbyte 

:Bit 7 setzen ( Format ierung 

;durchführen) 

: Zah l in X in formatierten String 
;ab 4130H ablegen. HL i3t Zeiger 
:auf diesen String 
, Zan l C ins: - ; ng j ausgeoen 
: PTZ zurück 
: PTZ -1 

rnachstes Zeichen holen 

:Cv a i 

:Sprung wenn Anweisungsende 
ierreicm wurde 


2CD9 32DE40 

LD 

C40DEH3 .R 

nächstes Zeichen abspeichern 
Csiehe 2CCBH rrj 

2DDC FE3B 

CP 

3BH 

* ; ' gefunden ? 

2DDE 2805 

3B 

Z.2DE5H 

3a: Zeichen ok 

2DE0 FE2C 

CP 

2CH 

' . ' gefunden 7 

2DE2 C29719 

3P 

NZ. 1997H 

Nein: SN-Error 

2DE5 D7 

RST 

10H 

PTZ erhöhen 

2DE6 CI 

POP 

BC 

Stringzahler zurück 

2DE7 EB 

EX 

DE. HL 

DE = PTZ 

2DE8 El 

POP 

HL 

HL : Vektor des Formatstrings 

2DE9 E5 

PUSH 

HL 

Vektoradresse retten 

2DER F5 

PUSH 

RF 

nächstes Zeichen retten 

2DEB 05 

PUSH 

DE 

PTZ retten 

2DEC 7E 

LD 

R. CHLJ 

R • Länge des Format st r ings 

2DED 90 

SUB 

B 

Rest länge abziehen 

2DEE 23 

INC 

HL - 

Vektoradresse +1 

2DEF 4E 

LD 

C. CHLJ 

HL ■ Zeiger auf den Formatstring 

2DF0 23 

INC 

HL 


2DF1 66 

LD 

H. CHLJ 


2DF2 69 

LD 

L.C 


2DF3 1600 

LD 

D.OOH 

DE = Offset zum nächsten 

2DF5 5F 

LD 

E.R 

Formatstring C Formatzeichen für 
den nächsten auszugebenden Wert) 

2DF6 19 

ROD 

HL. DE 

Offset addieren, HL zeigt auf 
die nächsten Formatangaben 

2DF7 78 

LD 

R.B 

:R = Rest länge 

2DF9 B7 

OR 

R 

:War die Restlänge » 0 ° 

20F9 C2032D 

3P 

NZ.2D03H 

;Nein: Formatstring ab CHL) 
: verarbeiten 

2DFC 1806 

3R 

2E04H 

:3a: alten Formatstring auch für 
;den nächsten Wert benutzen 

Stringende gefunden 




20 FE CD492E 

CftLL 

2E49H 

*♦' ausgeben wenn D <> 0 

2E01 CD2R03 

CRLL 

032RH 

letztes Zeichen ausgeben 

2E04 El 

POP 

HL 

PTZ zurück 

2E05 Fl 

POP 

RF 

Flag bzw. nächstes Zeichen 
zurück Csiehe 2DERH ) 

2E06 C2CB2C 

3P 

NZ.2CCBH 

Nächste Zahl mit gleichem 
Formatstring verarbeiten 

2E09 DCFE20 

CRLL 

C.20FEH 

PRINT abschl ießen wenn das 
Rnwe i sungsende erreicht wurde 
Csiehe 2D06H ) 

2E0C E3 

EX 

CSPJ .HL 

PTZ retten. Vektoradresse zurück 

2E00 C 00029 

CRLL 

29D0H 

Formatstring aus der String- 
tabelle und dem Stringspeicher 
wieder löschen 

2E10 El 

~0P 

rtL 

PTZ zurück 

2E 1 1 '36321 

:p 

2163H 

:-u3gaoen -Mieder zun 3i: isoniri 



2. 'K'-Zeichen gefunden 

C « Anzahl der auszugebenden Textzeichen 


*2E 17 Fl 

2E18 05 
2E19 C0492E 
2E1C El 
2E1D Fl 
2E1E 28E9 
2E20 C5 
2E21 CD3723 
2E24 CDF40A 
2E27 CI 
2E28 C5 
2E29 E5 
2E2A 2A2141 

2E2D 41 

2E2E 0E00 

2E30 C 5 
2E31 CD682A 

2E34 CDAA28 
2E37 2A2141 

2E3A Fl 

2E3B 96 
2E3C 47 
2E3D 3E20 
2E3F 04 
2E40 05 
2E4 1 CAD32D 
2E44 CD2A03 

2E47 18F7 

'+' ausgeben wenn D 

2E49 F5 
2E4A 7A 
2E4B B7 
2E4C 3E2B 
2E4E C42A03 
2E51 Fl 
2E52 C9 


POP AF 

DEC B 

CALL 2E49H 

POP HL 

°0P AF 

3R Z.2E09H 

PUSH BC 

CALL 2337H 

CALL 0AF4H 

POP BC 

PUSH BC 

PUSH HL - 

LD HL.C4121H) 

LD B.C 

LD C.OOH 

PUSH BC 

CALL 2A68H 

CALL 28AAH 

LD HL.C4121H) 

POP AF 

SUB CHL) 

LD B.A 

LD A.20H 

INC B 

DEC B 

3P Z.2DD3H 

CALL 032AH 

3R 2E40H 

< > 0 

PUSH AF 

LD A.D 

OR A 

LD A.2BH 

CALL NZ.032AH 

POP AF 

RET 


:Stringzeiger aus dem Stack 
; nehmen 
: Zäh l er -1 

:* + ' ausgeben wenn D <> 0 
: PTZ zurück 

:Flag zurück. Fertig ? 

:3a: Print abschließen 
;Nein: Stringzähler retten 
: Auszugebenden String holen 
: TM-E rror wenn kein String 
: St r i ngzäh l er zurück 
:Str ingzähler retten 
: PTZ retten 

; HL : Vektor des auszugebenden 
:Strings 

:B * Anzahl der auszugebenden 
: Zeichen 

:C = 0: Ausgabe wird am String- 
:anfang begonnen 
:Zähler retten 

: Auszugebenden Zeichen über LEFTS 
: hol en 

: Zeichen ausgeben 
: HL : Vektor des ausgegebenen 
:Str ings 

:A * Anzahl der ausgegebenen 
; Zeichen 

Gesamtlänge des Strings 
;B = Restlänge des Strings 
:A * Leerzeichen 
: Zäh l er +1 
: Zäh l er » 0 ? 

:3a: nächstes Argument bearbeiten 
.•Nein: Fehlende Zeichen durch 
Leerzeichen ersetzen 
.•Nächstes Zeichen 


: AF retten 
:0 <> 0 ? 


A « * + ' 

3a: ’+' ausgeben 

AF zurück 


EDIT-Rnsprung nach 5N-Error 
I : R « OOH 


2E53 329R40 
2E56 2RER40 
2E59 B4 
2E5R R5 
2E5B 3C 
2E5C EB 
2E5D C3 
2E5E 1804 


LD 

LD 

OR 

RNO 

INC 

EX 

RET 

3R 


(409RH) . R 
HL. C40ERH) 
H 
L 
R 

DE. HL 
2 

2E64H 


:Letzen Fehlercode löschen 
: HL = ERL 
; ERL * 65535 * 

:War der SN-Error im aktiven 
: Befehlsmodus 
:0E - ERL 

:3a: Kein EDIT ausführen 

:Nein: EDIT mit ZN * DE ausführen 


EDIT 


2E60 

2E63 

2E64 

2E65 

2E66 

2E69 

2E6R 

2E6D 


EB 

22EC40 


CD2C1B 

D2D91E 


2E70 60 
2E71 69 
2E72 23 
2E73 23 
2E7 4 4E 
2E75 23 
2E76 46 
2E77 23 
2E79 C 5 
2E79 CD7E2B 

2E7C El 
2E7D E5 
2E7E CDAFOF 
2E81 3E20 
2E83 CD2A03 
2E86 2RR740 


2E89 3E0E 
2E8B CD2R03 
2E3E E5 
2E3F OEFF 


2E91 OC 
2E92 7£ 
2E22 57 


2E35 IIP-. 


CRLL 

RET 

POP 

EX 

LD 

EX 

CRLL 

3P 

LD 

LD 

INC 

INC 

LD 

INC 

LD 

INC 

PUSH 

CRLL 

POP 

PUSH 

CRLL 

LD 

CRLL 

LD 

LD 

CRLL 

PUSH 

LD 

INC 

LD 

OR 

INC 

:p 

=op 


NZ - 
HL 

DE. HL 

C40ECH) .HL 
DE .HL 
1B2CH 
NC . 1ED9H 


H.B 

L.C 

HL 

HL 

C. CHL) 

HL 

B. CHL) 

HL 

BC 

2B7EH 

HL 

HL 

OFRFH 

R.20H 

032RH 

HL. C40R7H) 

R.OEH 

032RH 

HL 

C. OFFH 
C 

R. (HL) 

R 


: Zei l ennummer nach DE holen 
: SN-Error ? 

:RET-Rdr aus dem Stack nehmen 

:HL * Zeilennummer 

:als '.'-Zeile abspeichern 

:0E * Zeilennummer 

:Zeile DE suchen 

:UL-Error wenn die Zeile nicht 

: ex ist iert 

: HL ■ Zeilenpointer 

: HL +2 

:BC = Zeilennummer 


: ZN retten 

:Zeile ab CHL) decodieren und im 

: Zei l enbuf f er ablegen 

:ZN zurück 

:und wieder retten 

:Zei lennummer ausgeben 

:und Leerzeichen 

: dahinter 

: HL = Rdresse des Zeilenbuffers 
: C * Zeiger auf den Zeilentext) 
;Cursor 'ein’ 

.•Zeiger retten 

:C = Zähler Cauf -1 gesetzt wegen 
: INC C danach) 

:Zähler +1 

: R = nächstes Zeichen 
:Zeii.enende erreicht ? 

fein: wei -.erzähl en 
: Zeiger zurück 

: ö = OOH ,nn:an. der oerait3 
: ausgegeoenen Zeichen. 

:C = _ änge aer Zei'. e 
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2E99 

1600 

LD 

D.OOH 

:D » 0 (Wiederholungszähler) 

2E9B 

CD8403 

CALL 

0384H 

:Zeichen von der Tastatur holen 

2E9E 

D630 

SüB 

30H 

:Ist es eine Ziffer "> 

2EA0 

380E 

DR 

C . 2EB0H 

:Nein: weiter bei 2EB0H 

2EA2 

FEOA 

CP 

ORH 

:Zi f fer ? 

2EA4 

300A 

DR 

NC .2EB0H 

: Nein : weiter bei 2EB0H 

2EA6 

5F 

LD 

E.R 

; Da : E = Zif fernwert ( OOH - 09H 

2EA7 

79 

LD 

R.D 

: R » letzter Wert 

2EA8 

07 

RLCR 


: *2 

2EA9 

07 

RLCR 


:*2 C *4 gesamt) 

2ERA 

82 

ADD 

A.D 

: +Wer t ( *5 gesamt) 

2EAB 

07 

RLCR 


: »2 (»10 gesamt) 

2EAC 

83 

RDD 

R.E 

: Nächste Dezimalstelle auf- 

2EAD 

57 

LD 

D.R 

: addieren 
;D * Zähler 

2EAE 

18EB 

DR 

2E9BH 

Wächstes Zeichen holen 

Keine Ziffer eingegeben 
D = Wiederholungszahler 

A * ASCII -Code des eingegebenen Zeichens 

- 30H ( • ) 

2EB0 

E5 

PUSH 

HL 

:Zeiger retten 

2EB1 

21992E 

LD 

HL .2E99H 

: RET auf 2E99H setzen 

2EB4 

E3 

EX 

(SP) .HL 

:Zeiger zurück 

2EB5 

15 

DEC 

D 

Wiederholung gewünscht ° 

2EB6 

14 

INC 

□ 

:Ist D <> 0 ? 

2EB7 

C2BB2E 

DP 

NZ.2EBBH 

;Da: D belassen 

2EBA 

14 

INC 

D 

Wein: D auf 1 setzen (gewünscht« 

2EBB 

FED8 

CP 

0D8H 

:Funktion einmal ausführen) 

: 08H » Backspace (Linkspfeil) *> 

2EBD 

CAD22F 

DP 

Z.2FD2H 

: Da : weiter bei 2FD2H 

2EC0 

FEDD 

CP 

ODDH 

: OOH * RETURN ? 

2EC2 

CAE02F 

DP 

Z.2FE0H 

: Da : weiter bei 2FE0H 

2EC5 

FEFO 

CP 

OFOH 

: 20H « Leertaste 

2EC7 

2841 

DR 

Z.2F0RH 

: Da : weiter bei 2F0RH 

2EC9 

FE3 1 

CP 

3 1H 

Kleinbuchstabe 

2ECB 

3802 

DR 

C.2ECFH 

: (Zeichen > 60H *>) 
Wein: Zeichen ok 

2ECD 

D620 

SUB 

20H 

:Da: In Großbuchstabe umwandeln 

2ECF 

FE21 

CP 

21H 

: 5 1H » 'Q' ? 

2ED1 

CAF62F 

DP 

Z.2FF6H 

: Da : weiter bei 2FF6H 

2ED4 

FE IC 

CP 

ICH 

:4CH « • L * ? 

2ED6 

CA402F 

DP 

Z.2F40H 

: Da : weiter bei 2F40H 

2ED9 

FE23 

CP 

23H 

: 53H * *S* ? 

2EDB 

283F 

DR 

Z.2F1CH 

: Da : weiter bei 2F ICH 

2EDD 

FE 19 

CP 

19H 

: 49H » *1' ? 

2EDF 

CA7D2F 

DP 

Z.2F7DH 

:Da: weiter bei 2F7DH 

2EE2 

FE 1 4 

CP 

14H 

; 44H * ’D' ? 

2EE4 

CA4A2F 

DP 

Z.2F4AH 

: Da : weiter bei 2F4AH 

2EE7 

P E 13 

CP 

13H 

: 43H = *C' ? 

2EE9 

CA652F 

DP 

Z.2F65H 

:Da: weiter bei 2F65H 
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2EEC 
2EEE 
2EF1 
2EF3 
2EF6 
2EF8 
2EFA 
2EFC 
2EFF 
2F0 1 


FE 15 

CAE32F 

FE28 

CA782F 

FE 1 B 

23 IC 

FE 18 

CA7S2F 

FEH 

CO 


CP 15H 

3P Z.2FE3H 

CP 28H 

3P Z.2F78H 

CP 1BH 

3R Z.2F16H 

CP 1 8H 

3P Z.2F75H 

CP 1 1H 

RET NZ 


; 45H = * E ' 

:3a: weiter bei 2FE3H 


: 58H * 'X' ? 

:Ja: weiter bei 2F78H 
;4BH * ’K' ? 

:3a: weiter bei 2F16H 
: 48H - 'H* ? 

:3a: weiter bei 2F75H 
: 41H * *A' o 

••Nein: Rücksprung nach 2E99H 


: R: Neu beginnen 


2F02 CI 
2F03 Dl 
2F04 CDFE20 
2F07 C3652E 


POP BC 

POP OE 

CRLL 20FEH 

3P 2E65H 


: RET-ftdr löschen 
: ZN zurück 

:Neue Bildschirmzeile beginnen 
: EDIT neu beginnen 


: Leertaste: Nächstes Zeichen anzeigen 


2F0A 7E 
2F0B B7 
2F0C C8 
2F0D 04 
2F0E CD2R03 
2F11 23 
2F12 15 
2F13 20F5 
2F15 C9 


LO 

OR 

RET 

INC 

CALL 

INC 

DEC 

3R 

RET 


:Nächstes Zeichen holen 
:Zeilenende erreicht 
:3a: Fertig 
: Zäh l er +1 
:Zeichen ausgeben 
: Zeiger +1 
: Wiederhol ung ? 

:3a: nächstes Zeichen 
•.Nein: Fertig 


: K: Zeile bis zum eingegebenen Zeichen löschen 


2F16 E5 
2F17 215F2F 

2FIA E3 
2F1B 37 


PUSH HL 

LD HL.2F5FH 

EX C SP) . HL 

SCF 


; Zeiger retten 

: RET-Adr auf 2F5FH setzen (Zur 
:Ausgabe von ’ ! * am Ende) 
;Zeiger zurück 

:CY ■ 1 (Kennung für Zeichen 
; löschen) 


; S: Eingegebenes Zeichen suchen 


2F1C F5 
2F1D CD8403 
2F20 5F 


PUSH AF 

CALL 0384H 

LD E.A 


2F21 Fl 
2F22 F5 
2F23 0C5F2F 





POP AF 

PUSH AF 

CALL C.2F5FH 

LO A.CHL) 

3R a 

:p Z.2F1EH 

CALL 322hH 


Flags retten 
Zeichen holen 

E = Zeichen bis zu dem gelöscht 
werden sol l 
:Flags zurück 
und wieder retten 
: ’ 1 ’ ausgeben für ’K’ -Funktion 
A - nächstes Zeichen 
:Zeilenence sr-eicnt ’ 




2F2E Fl 
2F2F F5 
2F30 DCP 1 2F 
2F33 3802 


POP PF 

PUSH PF 

CPLL C.2FP1H 

CR C.2F37H 


2F35 23 
2F36 04 
2F37 7E 
2F38 0B 
2F39 20E3 
2F3B 15 
2F3C 20E8 
2F3E Fl 
2F3F C9 


INC HL 

INC B 

LD P.CHL) 

CP E 

CR N2.2F2SH 

DEC D 

CR NZ.2F26H 

POP PF 

RET 


L: Zeile listen und Edit neu beginnen 


2F40 CD752B 
2F43 CDFE20 
2F46 CI 
2F47 C37C2E 

D: Zeichen löschen 

2F4P 7E 
2F4B B7 
2F4C C8 
2F4D 3E21 
2F4F CD2P03 
2F52 7E 
2F53 B7 
2F54 2809 
2F56 CD2P03 
2F59 CDP12F 
2F5C 15 
2F5D 20F3 

' 1 ’ ausgeben 

2F5F 3E21 
2F61 CD2P03 
2F64 C9 

C: Zeichen verändern 


CPLL 2B75H 

CPLL 20FEH 

POP BC 

CP 2E7CH 


LD P.CHL) 

OR P 

RET Z 

LD P.21H 

CPLL 032PH 

LD P.CHL) 

OR P 

CR Z.2F5FH 

CPLL 032PH 

CPLL 2FP1H 

DEC D 

CR NZ.2F52H 


LD P.21H 
CPLL 032PH 
RET 


2FS5 7E 
2F66 B7 
2FS7 Z3 
l c 33 :D3403 
2F3B 77 
2F6C CD2P03 
2FSF 22 
2F~"i >4 


LD P.CHL) 

OR P 


•CPLw 

CPL- 

:nc 

:nc 

;r 


C HL ) 

032PH 

HL 


NZ.2FB5H 


: Flags zurück 
:und wieder retten 

:Zeichen löschen für ’K'-Funktion 
:Nächste Befehle bei ‘K’ 

; überspr ingen CZähler und Zeiger 
:wurden in 2FP1H angepasst) 

: Zeiger +1 
; Zäh l er +1 

; P » nächstes Zeichen 
:= gesuchtem Zeichen ? 

;Nein: nächstes Zeichen 
:3a: D-tes Zeichen gefunden 
:Nein: nächstes Zeichen 
:0a: Flags zurück 


: Zeile ausgeben 

:Neue Bildschirmzeile beginnen 
: RET-Pdr löschen 
:Edit neu beginnen 


:P = Zeichen 
;Zeilenende erreicht ° 
:Ca: Fertig 
:Nein: * ! * ausgeben 

;P = Zeichen 
: Zeilenende ? 

: Ca : Fertig 

:Nein: Zeichen ausgeben 
:und löschen 
••Wiederholung ? 

:0a: nächstes Zeichen 


: P = ‘ 1 * -Zeichen 
:Zeichen ausgeben 


P » Zeichen 
:Zeilenende erreicht 7 
Ca: '‘ertig 

:Nen: neues Zeichen Heien 
: unc lusgeoen 


: Zähl er -1 
Wieaer no i ung ' 

: C i : näcnstes Zeichen 



H: Rest der Zeile löschen und nach ' I* springen 

2F75 3600 LD (HL).OOH sZeilenende an die aktuelle 

sPosition setzen 

2F77 48 L0 C.B :C » Rnzahl der bereits 

sausgegebenen Zeichen * neue 
;Zei l enl änge 


X: Rest der Zeile ausgeben und nach ’I' springen 


2F78 1 6FF 
2F7R CD0R2F 


LD D.OFFH :Zur Ausgabe des Rests der Zeile 

CRLL 2F0AH :255 mal die Leertastenfunktion 

sausführen 


I: Neue Zeichen einsetzen 


2F7D CD8403 
2F80 B7 
2F81 CA7D2F 
2F84 FE08 
2F86 280A 
2F88 FEOO 
2F8A CAE02F 
2F8D FE 1B 

2F8F CS 
2F90 20 IE 


CALL 0384H 

OR A 

DP Z.2F7DH 

CP 08H 

DR Z.2F92H 

CP ODH 

DP Z.2FE0H 

CP iBH 

RET Z 

DR NZ.2FB0H 


sNeues Zeichen holen 
:( warum 7) 

; (siehe 0384H ) 
sLinkspfeil ? 

:Da: Zeichen löschen 
; RETURN *> 

: Da : RETURN-Funkt ion ausführen 
:Shi f t-Hochpfei l CI-Funktion 
: beenden) 7 
;Da: Fertig 

sNeins Zeichen einfügen 


Linkspfeil (Zeichen löschen) 


2F92 3E08 LD 

2F94 05 DEC 

2F95 04 INC 

2F96 28 1F DR 

2F98 CD2A03 CALL 

2F9B 2B DEC 

2F9C 05 DEC 

2F9D 117D2F LD 

2FA0 D5 PUSH 

Zeichen bei (HL) löschen 

2FA 1 E5 PUSH 

2FA2 00 DEC 

2FA3 7E LD 

2FA4 B7 OR 

2FA5 37 SC F 

2FA6 CA9008 DP 

2FA9 23 INC 

2FAA 7E LD 

2 FAB 2B DEC 

2FAC 77 LD 


in der I-Funktion 


A.08H 


B 

B 

Z.2FB7H 

032AH 


HL 


DE.2F7DH 

DE 


: A » ASC I I -Code für Zeichen 
: löschen (Backspace) 
sSchon Zeichen ausgegeben 7 
:(Sind noch Zeichen zum Löschen 
; vorhanden *>) 
sNein: Fertig 

:Da: Zeichen auf dem Bildschirm 
: l öschen 
sZeiger -1 
: Zäh l er -l 

: RET-Adr auf 2F07H setzen 


HL 

C 

A. (HL) 

A 

Z.0890H 

HL 

A. (HL) 
HL 

(HL) .A 


sZeiger retten 
: Zeilen lange -1 
sZeichen holen 
sZeilenende erreicht 7 
:CV « l 

; Da : Zeiger zurück. Fertig 
sNein: Zeiger +l 
snächstes Zeichen holen 
sZeiger -1 

sund an aktueller Stelle 
seinsetzen 
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— 


2FRD 

23 

INC 

HL 

Zeiger +1 

2FRE 

18F3 

DR 

2FR3H 

Zeile weiter verschieben bis 
Zeilenende erreicht wird 

Ein Zeichen bei CHL) 

einfügen 



2FB0 

F5 

PUSH 

RF 

Zeichen retten 

2FB 1 

79 

LD 

R.C 

R « Zeilenlänge 

2FB2 

FEFF 

CP 

OFFH 

Maximale Länge schon erreicht 

2FB4 

3803 

DR 

C.2FB9H 

Nein: Zeichen einfügen 

2F36 

Fl 

POP 

RF 

Da: Zeichen zurück 

2FB7 

1 8C4 

DR 

2F7DH 

zurück zur *1 '-Funktion 

Zeichen einfügen 




2FB9 

90 

SUB 

B . 

R * Zeilenlänge - Rnzahl der 
schon ausgegebenen Zeichen 
= Rest länge der Zeile 

2FBR 

OC 

INC 

C 

Zeilen länge +1 

2F9B 

04 

INC 

3 

Rusgegebene Zeichen +1 

2FBC 

C5 

PUSH 

BC 

Zähler retten 

2FBD 

EB 

EX 

DE. HL 

DE = Zeiger 

2FBE 

6F 

LD 

L.R 

HL ■ Rest länge der Zeile 

2FBF 

2600 

LD 

H , OOH 


2FC 1 

19 

RDD 

HL. DE 

HL » aktueller Zeiger + Rest- 
länge * Zeiger zum Ende der 
: Zei l e 

2FC2 

44 

LD 

B.H 

:BC = Endzeiger 

2FC3 

4D 

LD 

C .L 


2FC4 

23 

INC 

HL 

: HL ■ Endzeiger +1 

2FC5 

CD5819 

CRLL 

1958H 

:Zeile verschieben 

2FC8 

CI 

POP 

BC 

: Zäh l er zurück 

2FC9 

Fl 

POP 

RF 

iZeichen zurück 

2FCR 

77 

LD 

t HL D . R 

:Zeichen einsetzen 

2FCB 

CD2R03 

CRLL 

032RH 

: und ausgeben 

2FCE 

23 

INC 

HL 

iZeiger +1 

2FCF 

C37D2F 

DP 

2F7DH 

;zurück zur *1 '-Funktion 

Linkspfeil: Zeichen 

l inks vom 

Cursor löschen 


2FD2 

78 

LD 

R.B 

R = Rnzahl der ausgegebenen 
iZeichen (= Rnzahl der Zeichen 
i links vom Cursor) 

2FD3 

B7 

OR 

R 

: Schon Zeichen ausgegeben R 

2FD4 

C8 

RET 

z 

Nein: Fertig 

2FD5 

05 

DEC 

B 

:Da: Zähler -1 

-rGo 

23 

DEC 

HL 

Zeiger -l 

2F07 

3E08 

LD 

R.08H 

Zeichen auf dem Bildschirm 

2 C 09 

CD2R03 

CRLL 

032RH 

l öschen 

2 FCC 

5 

DEC 

2 

aliecer ho l ung ' 

2 FCC 

20F3 

CF. 

wZ . 2FD2H 

Ca: nacnstes Zeicner. 

ZFZF 

•23 

RE“ 





: RETURN: Rest der Zeile ausgeben und Edit beenden 


2FE0 CD752B 


CRLL 2B75H 


: Res t der Zeile ausgeben 


: E: Edit beenden 


2FE3 
2FE6 
2FE7 
2FE8 
2FE9 
2FER 
2FEB 
2FEE 
2FEF 
2FF0 
2FF 1 
2FF2 
2FF3 


2RR740 

2B 


CRLL 

POP 

POP 

LD 

RNO 

INC 

LO 

DEC 

RET 

SCF 

INC 

PUSH 

3P 


20FEH 

BC 

DE 


E 

R 

HL. C40R7H) 

HL 

Z 


HL 

RF 

1R98H 


:Neue Bildschirmzeile beginnen 
: RET-Rdr löschen 
: ZN zurück 
: ZN « 65535 ? 

:CZ setzen für 2FEFH. 

;s iehe 1R71H ff) 

: HL = Rdresse des Zeilenbuffers 
: HL -i 

: Fertig wenn ZN = 65535 
: CY * l 
:Zeiger +1 
:Flags retten 

:Zei le ab HL wieder in den 
: Programmtext übernehmen 


Q: Edit beenden ohne die Änderungen zu übernehmen 


2FF6 CI 
2FF7 Dl 
2FF8 C3191R 


POP BC 

POP DE 

OP 1R19H 


: RET-Rdr zurück 
: ZN zurück 

:Zurück zum aktiven Befehls- 
:modus 


2FFB DEC3 SBC R.0C3H 

2FF0 C344B2 OP 0B244H 
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r 3STatureingabe mit FKEY-Überprüf ung 

(wird nur bei der Zei ! enemgabe C 05D9H ff) verwendet und 
hat daher als Rücksprungadresse 05E3H ! ) 

I : HL * Bufferzeiger 

3000 C31534 OP 3415H :weiter bei 3415H 


: Heine Funkt ionstaste gedrückt CRnsprung von 3458H Tf) 

: Wurde CTRL und eine Ziffer von 1 bis 9 zur ^arbumschal tung gedrückt ° 


3003 E5 

3004 211840 
3007 CB7E 


PUSH HL 

LD HL.4018H 

BIT 07H.CHL) 


3009 2812 
300B CBBE 
300D FE31 


OR Z . 301 DH 

RES 07H , < HL ) 

CP 31H 


300F 380C 
3011 FE 39 
3013 3008 
3015 063 1 
3017 CD2136 


3R C . 301 DH 

CP 39H 

OR NC , 301 OH 

SUB 31H 

CRLL 3621H 


30 1 R El POP HL 

30 1B 18E3 OR 3000H 


Zeichen in R an Eingaberoutine übergeben 


30 ID El 
30 1 E C3ES05 

3021 FF 


POP HL 

3P 05E3H 

RST 38H 


: Grafikzeichen C > 7FH ) erkannt 


3022 FECO 


CP 


OCOH 


3024 C30S31 OP 3105H 


:Zeiger retten 
; HL : CTRL-Byte 
; wurde beim letzten Mal CTRL 
: gedrückt ? 

:Nein: Fertig 
:0a: Bit wieder löschen 
:wurde jetzt eine Ziffer 
: gedrückt ? 

:Nein: Zeichen in R übergeben 
:Zi f fer ? 

:Nein: Fertig 

:0a: R = Colourcode 0-7 

:Neuen Colourcode abspeichern und 

: Cur sor einschalten 

;Zeiger zurück 

:neues Zeichen holen 


:Zeiger zurück 

:Rücksprung zur Zeileneingabe 


:Dieser Vergleich diente in einer 
: früheren Version dazu, die 
: Zeichen von 192 - 255 CCOH - 
:FFH) als Tabu l ator funkt ion 
:CRusgabe von 0 bis 63 Leer- 
zeichen) zu verwenden. In der 
: jetzigen Version werden aber 
:alle werte > 7FH als Grafik- 
zeichen dargestellt 
••Zeichen ausgeben 
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: Ehemalige T 3 bui ator funkt ion C unbenutzt) 


3027 DSCO 

3029 CA0831 
302C 47 
3020 3E20 
302F C5 

3030 CD8431 

3033 CI 

3034 10F7 
3036 C30831 


SUB OCOH 

3P Z.3108H 

LD 8.8 

LO A.20H 

PUSH BC 

CPiLL 3X84H 

POP BC 

D3NZ 302DH 

3P 3108H 


:A = Wert - 192 (■ Anzahl der 
: auszugebenden Leerzeichen) 

:A = 0. 3a: Fertig 
:Nein: B = Zähler 
:A * Leerzeichen 
:Zähler retten 
:Zeichen ausgeben 
:Zähler zurück 
:nächstes Zeichen 


: Cursor ein Zeichen nach rechts setzen ( * CHRSC25) ) 


3039 23 
3038 E5 
3038 CD6531 

303E EB 
303F El 

3040 DF 


3041 CO 

3042 11D8FF 
3045 19 


3046 C9 


INC HL . 

PUSH HL 

CALL 3165H 

EX DE. HL 

POP HL 

RST 18H 


RET NZ 

LD DE . 0FFD8H 

ADD HL. DE 


RET 


:Adresse +1 
: Adresse retten 

: HL = Startadresse der aktuellen 
:Zei le 
: DE - HL 

:Neue Cursoradresse zurück 
:Wurde die nächste Zeile 
;erreicht ? (steht der Cursor 
: jetzt am Zeilenanfang ?) 

: Nein : ok 
:3a: OE * -40 

:40 (Eine Zeilenlänge) von der 
: neuen Adresse abziehen: Der 
:Cursor steht wieder am Anfang 
••der alten Zeile 


CRTC programmieren 

I: A » Register des CRTC 

H » 1. Wert (wird im Register A abgespeichert) 

L =2. Wert (wird im Register A+l abgespeichert) 


3047 C5 

3048 E5 

3049 0602 
304B OEFA 
304D ED79 
304F OC 

3050 ED6 1 

3052 3C 

3053 65 

3054 10F5 

3056 El 

3057 CI 


PUSH BC 

PUSH HL 

LD B.02H 

LD C.OFAH 

OUT (C).A 

INC C 

OUT ( C ) . H 

INC A 

LD H.L 

D3NZ 304BH 

POP HL 

POP BC 

RET 


:Regist 2 r retten 
:2 Durchgänge 

:C = Portadresse zur CRTC Anwahl 
;Register wählen 
:C = Portadresse +1 
:Wert übergeben 

: A + 1 : Beim nächsten Durchgang 
:das nächste Register anwählen 
:und den Wert in L übergeben 
: Nächster Durchgang 
:Register zurück 



Cursor 'aus' C «CHRSC15) ) 


3059 E5 
305A 210720 

305D 1804 


PUSH HL 

LD HL , 2007H 

3R 3063H 


jAdresse retten 
: H und L • Werte zur CRTC- 
: Programm i erung (siehe S. 114 im 
jHandbuch) 

: wei t er bei 3063H 


: Cursor ’ein' C «CHRS(14) ) 


305F E5 PUSH 

3060 2R1940 LD 

3063 3E0R LD 

3065 CD4730 CRLL 

3068 7C LD 

3069 El POP 

306A E5 PUSH 

3068 D5 PUSH 

306C FE 20 CP 

w 306E C41436 CRLL 

3071 00 NOP 

3072 3E0E LD 

3074 CD4730 CRLL 

3077 Dl POP 

3078 El POP 

3079 C9 RET 


HL 

HL . (4019H) 

R.ORH 

3047H 


20H 

NZ.3614H 


: Adresse retten 

: H und L * Werte zur CRTC- 

jprogrammierung 

:Regi ster 10 und 11 anwählen 

:CRTC programmieren 

: R * 1. Wert 

:Adresse zurück 

:Register retten 

: Wurde der Cursor ausgeschaltet t 
:N ein: Farbe des neuen Cursors 
: setzen 


A.OEH jRegister 14 und 15 mit der neuen 

3047H ;Adresse C in HL) programmieren 

DE jRegister zurück 

HL 


Neuen Farbcode in den Farbspeicher setzen 
I : HL * Bildschirmadresse 
R * Neuer Farbcode 


307R E5 
3078 D5 
307C F5 
307D C3F935 


PUSH HL jRegister retten 

PUSH DE 

PUSH RF 

OP 35F8H jweiter bei 35F8H 


: Neuen wert im Farbspeicher programmieren (siehe 35F8H ff) 
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3081 E5 

3082 219043 
3085 110000 
3088 3A2340 
308B 5 F 
308C 19 
3080 7E 
308E El 
308F 

3090 Fl 

3091 Dl 

3092 El 


ROD HL. DE 

PUSH HL 

LD HL.4390H 

LD 0E.0000H 

LD R.C4023H) 

LD E . A 

ADD HL. OE 

LD R.(HL) 

POP HL 

LD (HL).R 

POP RF 

PCP DE 

PGP HL 


:Adresse im Farbspeicher 
; errechnen 
:Adresse retten 

: HL = Adresse der Far bcodet abe l l e 

: DE * Offset für Tabelle 

:A = Farbcode 

; DE * Offset 

: HL - Adresse * Offset 

;Echten Farbcode holen 

: ^arbspeiche- idresse rurüc*. 

:Neue Pirbe setzen 
jRegister zurück ( von 307AH j 




3094 03 

3095 01 

3096 02 

3097 04 

3098 06 

3099 08 
3098 09 
309B 08 
309C 05 


Neuen POS-Wert errechnen (8F) 
I : -- 

0: 8 = Neuer POS-Wert 


3090 E5 
309E 05 
309F C 5 
3080 282040 

3083 E5 

3084 C06531 

3087 EB 

3088 El 

3089 B7 
3088 ED52 


308C 70 
3080 Ct 
308E Dl 
308F El 
30B0 C9 


PUSH 

PUSH 

PUSH 

LD 

PUSH 

C8LL 

EX 

POP 

OR 

SBC 


LD 

POP 

POP 

POP 

RET 


HL. C4020H) 


3165H 
OE .HL 


8 . L 
BC 
DE 
HL 


;Register retten 


: HL * Neue Cursoradresse 

:8dresse retten 

;Zei l enanf ang errechnen 

:DE = 8dresae des Zeilenanfangs 

:HL * Cursoradresse 

:CY - 0 

sHL * Cursoradresse - Zeilen- 
:anfangsadresse * Position des 
: Cursors in der Zeile 
: 8 - POS-Wert 
:Register zurück 


Tabul atorwert prüfen 
I: E » Gewünschter Tabulatorwert 
O: 8 * Korrekter Tabul atorwert 
E « 8 


30B 1 7B 
30B2 5F 
30B3 389C40 
30B6 B7 
30B7 F8481E 
30B8 2805 


LD 8 . E 

LD E . 8 

LD 8.C409CH) 

OR 8 

3P M.1E48H 

3R Z.30C1H 


30BC 389E40 


LD 8.C409EH1 


30BF 1803 


3R 30C4H 


: 8 * T8B-Wer t 
:E « T8B-Wert 
:8 = 8usgabeflag 
: Casset tenausgabe ° 

:3a: FC-Error 
: Sprung bei Bildschirm- 
; ausgabe 

;Druckerausgabe: 8 = höchste 
: er reichbare Tabulatorposition 
; wei t er bei 30C4H 





; 3i l dschi rmausgabe 

30C1 3R9040 
30C4 BB 


30C5 300B 
30C7 CS 
30CB 43 
30C3 5F 
30CR 78 
30CB CI 
30CC 93 

30CD 30F0 
30CF 83 

3000 5F 

3001 C9 


LD 8 , ( 409DH ) 

CP E 


DR NC.3002H 

P'JSH BC 

L0 B.E 

LO E.R 

LO R.B 

POP BC 

SUB E 

DR NC.30CCH 

ROD R.E 

LO E.R 

RET 


TRB-Wert in Ordnung 

3002 7B LO R.E 

3003 C9 RET 


; R - Rnzahl der Zeichen pro Zeile 
:Ist der gewünschte TRB-Wert 
;größer als die höchtste 
: TRB-Pos i t ion bzw größer als die 
; Zei l enl änge 
.•Nein: Wert ok 
: Da : BC retten 
:R und E vertauschen 


:BC zurück 

: Zei l en l änge bzw höchsten 
:TRB-Wert abziehen 
: weiter wenn Rest noch > 0 
iLetzte Subtraktion rückgängig 
: machen 

:E = Neuer TRB-Wert Cnie größer 
.-als die Zei len länge! 


:Wert nach R übergeben 


; UPRO für PRINT § (siel 
; I : DE = § - Rrgument 

3004 21E703 

3007 DF 

3008 El 

3009 DR4R1E 
30DC C37E20 

: Neuen POS-Wert err< 


>e 207RH ) 


LD HL . 03E7H 

RST 18H 

POP HL 

DP C.1E4RH 

DP 207EH 

hnen Cwie 309DH aber 


300F CD9D30 
30E2 5F 
30E3 C 9 


CRLL 309DH 

LD E.R 

RET 


: HL - 999 

:Ist der 9-Wert größer als 999 ? 
: PTZ zurück 
:Da: FC-Error 
:Nein: Fertig 

Wert in E und R) 

:P0S errechnen 

:und auch nach E schreiben 



Bi Idschirmrout ine (wird über DCB-Aufruf angesprochen) 
I: IX » Adresse des Bi Idschirm-DCBs C- 401DH) 

C * auszugebendes Zeichen 


30E4 DD6E03 
30E7 006604 
30EA DA7D31 

30ED DD7E05 
30F0 B7 
30F1 2005 
30F3 C05930 
30F6 1303 
30F8 CD5F30 
30F9 79 
30FC FE20 
30FE 3822 
3100 FE80 
3102 D22230 
3105 CD8431 

3108 7E 

3109 57 
310A DD7E05 
3100 B7 

31 OE 2808 

3110 DD7205 
3113 CD5F30 
3116 1803 
3118 CD5930 
31 1B DD7503 
31 IE DD7404 
3121 C9 


LD L.CIX+03H) 

LD H.CIX+04H) 

3P C.317DH 

LD A.CIX+05H) 

OR A 

OR NZ.30F8H 

CRLL 3059H 

3R 30FBH 

CRLL 305FH 

LD R.C 

CP 20H- 

OR C.3122H 

CP 80H 

3P NC.3022H 

CRLL 3184H 

LD R.CHL) 

LD D.R 

LD A.CIX+05H) 

OR R 

OR Z.3118H 

LD ( IX+05H ) . D 

CALL 305FH 

OR 311BH 

CRLL 3059H 

LD ( IX+03H ) . L 

LD ( IX+04H ) . H 

RET 


:HL * aktuelle Cursoradresse 
: ( aus DCB) 

: Falscher DCB -Typ *» 

:0a: weiter bei 317DH 
:Cursor eingeschaltet 7 

:0a: weiter bei 30F8H 
:Nein: Cursor ‘aus’ 

: weiter bei 30FBH 
:Cursor 'ein' 

:A > auszugebendes Zeichen 
:Steuercode 7 
:0a: weiter bei 3122H 
:Graf ikzeichen ? 

:0a: weiter bei 3022H 
{Zeichen ausgeben 

;A ■ Zeichen an der neuen Cursor- w 

: Position 

:D » Zeichen 

{Cursor eingeschaltet ? 

:Nein: weiter bei 3118H 
:0a: Zeichen abspeichern 
{Cursor ‘ein’ 

{weiter bei 311BH 
:Cursor ‘aus' 

:Neue Cursoradresse 
: abspeichern 


Steuercode C Wert < 32) erkannt (siehe S. 120 im Handbuch) 
I : A = Steuercode 
HL * Cursoradresse 


3122 110831 

3125 D5 

3126 FE08 

3128 CADF31 

3129 FEOA 
3120 08 
312E FE OE 

3130 DAC931 
3133 CAF831 
3136 FEOF 
3138 CAF031 
313B FE 18 
313D D3 


LD DE.3108H 

PUSH OE 

CP 08H 

OP Z.31DFH 

CP OAH 

RET C 

CP OEH 

OP C.31C9H 

OP Z.31F8H 

CP OFH 

OP Z.31FDH 

CP 18H 

RET C 


: RET-Adr auf 3108H setzen 

:Backspace *> 

:0a: weiter bei 31DFH 
: Code < 10 7 
:0a: Fertig 
{Cursor ‘ein’ •> 

: Sprung wenn Zeichen < OEH 
:0a: weiter bei 31F8H 
{Cursor ‘aus’ 

:0a: weiter bei 31FDH 
{Zeichen < 24 7 
:0a: Fertig 
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313E FE 18 
3140 CAE531 
3143 FE 19 
3145 CA3930 
3148 FE1A 
314A CA0032 
314D FE 1B 
3 1 4F CA 1 232 
2152 FE IC 
3154 CAD431 
3157 FE10 

3159 CAD931 
315C FEIE 
315E 285F 

3160 FE 1 F 

3162 2845 
3164 C9 


CP 18H 

DP 2.31E5H 

CP 19H 

DP 2.3039H 

CP IAH 

DP 2.3200H 

CP 1BH 

D P 2.3212H 

CP ICH 

DP 2.3104H 

CP 1DH 

DP 2.3109H 

CP 1 EH 

3R 2.31BFH 

CP 1 FH 

3R 2.31A9H 

RET 


iCursor nach links ° 

:3a: weiter bei 31E5H 
; Cursor nach rechts 
:3a: weiter bei 3039H 
[Cursor nach unten 
:3a: Meiter bei 3200H 
[Cursor nach oben ? 

:3a: weiter bei 3212H 
[Cursor nach links-oben ? 

:3a: weiter bei 3104H 
[Cursor zum 2eilenanfang ? 

:3a: weiter bei 31D9H 
[Löschen bis zum Ende der 2eile 
:3a: weiter bei 31BFH 
[Löschen bis zum Ende des Bild- 
schirms 3 

:3a: weiter bei 31A9H 


Adresse des 2ei lenanfangs der aktuellen 2eile errechnen 
I : HL = aktuelle Cursor adresse 
0: HL * Adresse des 2ei lenanfangs 


3165 1100BC 
3168 0601 
316A 19 

316B 112800 
316E B7 
316F ED52 
3171 3803 

3173 04 

3174 1 9F5 
3176 21D843 
3179 19 
317A 10FD 
317C C9 


LD DE . OBCOOH 

LD B.01H 

ADO HL. DE 

LD DE.0028H 

OR A 

SBC HL. OE 

3R C.3176H 

INC B 

3R 316BH 

LD HL.43D8H 

ADD HL. DE 

D3N2 3179H 

RET 


: DE » -4400H 
:2ähler auf 1 setzen 
: HL * aktueller §-Wert 
:(* Adresse - 4400H) 

:DE ■ 40 C 2ei l enl ange) 

:CY - 0 

:40 abziehen 

:Sprung wenn Rest < 0 

: 2ah l er +1 

:weiter 

: HL ■ 4400H - 28 

:2eilenlange auTaddieren 

:B mal die 2eilenlange addieren 


: Falschen DCB-Typ erkannt 


317D DD7E05 LD 

3130 B7 OR 

3181 CO RET 

3182 7E LO 


A.CIX+05H) [Cursor eingeschaltet ° 

A 

N2 :3a: ok 

A.CHL) :Nein : A = 2eichen an der 

:nachsten Bildschirmposition 


3183 C9 


RET 



Zeichen auf dem Bildschirm darstellen 
I : HL ■ Bildschirmadresse 
fl * Zeichen 


3184 CD7A30 

3187 77 

3188 23 

3189 11E847 
318C DF 
318D 08 


CALL 307AH 

LD (HL).A 

INC HL 

LD DE , 47E8H 

RST 18H 

RET C 


: Farbspeicher setzen 
:Zeichen darstellen 
••Adresse +1 

;0E = Adresse des Bildschirmendes 
:Bi Idschirmende erreicht ? 

:Nein: ok 


Bildschirm um eine Zeile nach oben schieben (Scrolling) 


318E 21E847 
3191 1 1D8FF 

3194 19 

3195 E5 

3196 CD3936 
3199 EDAO 
319B D9 
319C EDAO 
319E D9 
319F 78 

3 IAO Bl 
31 Al 20F6 
31A3 D9 
31A4 El 
31A5 Dl 
31A6 CI 
31A7 D9 
31A8 El 


LD HL.47E8H 

LD DE . 0FFD8H 

ADD HL. DE 

PUSH HL 

CALL 3639H 

LDI 

EXX 

LDI 

EXX 

LD A.B 

OR C 

JR NZ.3199H 

EXX 

POP HL 

POP DE 

POP BC 

EXX 

POP HL 


: HL ■ Endadresse des Bildschirms 
; DE - -40 

: HL * HL - 40 ■ Startadresse der 
:letzten Bildschirmzeile 
: HL retten 

:Register vorbereiten 
: Zeichenspeicher verschieben 
: Register tauschen 
: Farbspeicher verschieben 
:Register tauschen 
: Fer t ig * 

:BC - 0 ? 

:Nein: weiter verschieben 
:Register tauschen 
: 2 . Registersatz zurück 
: (siehe 3639H ff) 


: St ar t adresse der letzten 
:Bi Idschirmzei le zurück 


Alle Zeichen von HL bis zum Ende des Bildschirmspeichers löschen 
( = CHRS (31) ) 


31A9 11E847 

3 1 AC E5 
3 1 AD CDE031 

3 1B0 23 
3 1 B 1 DF 
31B2 20F9 
31B4 El 
31B5 C9 


LD DE.47E8H 

PUSH HL 

CALL 31E0H 


INC HL 

RST 18H 

3R NZ.31ADH 

POP HL 

RET 


:DE * Endadresse der letzten 
:Bi Idschirmzei le 
: HL retten 

:Zeichen in (HL) löschen und 
: Farbe auf COLOUR setzen 
:Adresse +1 
;Ende erreicht ? 

:Nein: weiter 
: HL zurück 
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RENUM 


31B6 F0E5 

PUSH 

IV 

: IV retten 

3198 1363 

3R 

3222H 

: wei t er bei 3222H 

Rücksprung von 
31 BR FDEl 

RENUFI 

POP 

IV 

: IV zurück 

31BC C3832C 

DP 

2C33H 

:Rlle Zeiger im Programm erneuer- 

Rlle Zeichen bis zum Ende der Zeile löschen 

C « CHRSC30) ) 

3 IBF E5 

PUSH 

HL 

:Rdresse retten 

31C0 C06531 

CRLL 

3165H 

: HL » Zeilenanfangsadresse 

31C3 EB 

EX 

DE. HL 

: DE => HL 

31C4 19 

RDD 

HL .DE 

: HL ■ Zeilenendadresse + 1 

31C5 EB 

EX 

DE. HL 

;C» DE + 40) 

: DE * Zeilenendadresse 

31C6 El 

POP 

HL 

: HL » Rktuelle Rdresse 

31C7 18E3 

3R 

31RCH 

:Rlle Zeichen von HL bis DE 

Neue Zeile beg 

inne ( « CHR$C13) ) 

: l öschen 

31C9 CD1B36 

CRLL 

361BH 

.-Rktuelle Zeile löschen 

3 ICC 19 

RDD 

HL. DE 

; HL ■ Startadresse der nächsten 

3 1 CO 11E847 

LD 

DE.47E8H 

: Zei l e 

;DE * Endadresse des Bildschirms 

3 IDO DF 

RST 

18H 

: Ende erreicht ? 

3101 28BE 

DR 

Z.3191H 

:3a: Scrollen 

31D3 C9 

RET 


:Nein: Fertig 

Cursor nach links oben C = 

:HRSC28) ) 


31 04 210C44 

LD 

HL . 4400H 

: HL - Startadresse des Bild- 

31D7 1803 

3R 

31DCH 

schirms 

;als neue Rdresse setzen 

Cursor zum Zei 

lenanfang C = 

CHRSC29) ) 


31D9 CD6531 

CRLL 

3165H 

: HL = Zeilenanfangsadresse 

31DC C35F30 

DP 

305FH 

:Cursor 'ein' 

Letztes Zeiche 

n löschen ( » 

CHR$ C 8 ) ) 


310F 2B 

DEC 

HL 

: HL * Rdresse -1 

3 1 EO 3E20 

LD 

R.20H 

.-Letztes Zeichen löschen 

31Z2 C2EECS 

DP 

35EEH 




Cursor ein Zeichen nach links ( ■ CHRSC24) ) 


31E5 E5 
31E6 CD6531 
3 1 E3 EB 
3 1 ER El 
31EB OF 
31EC 2803 


PUSH 

CRLL 

EX 

POP 

RST 

3R 


3165H 
DE ,HL 


18H 

Z.31FIH 


31EE 2B DEC HL 

31EF 18EB 3R 31DCH 


Cursor zum Zeilenende 


31 Fl 2B 
31F2 112800 
31F5 19 
31F6 18E4 


DEC HL 

LD DE.0028H 

RDD HL. DE 

3R 31DCH 


Cursor -ein' t * CHRS (14) J 


31F8 7E 


LD R.CHL) 


31 F9 DG7705 
31 FC C9 


LD CIX+05HKR 

RET 


Cursor 


’ aus ' 


CHRS C 1 S 5 ) 


31FD RF XOR R 

3 1 FE 18F9 3R 31F9H 


Cursor eine Zeile tiefer C = CHRS C 26 ) ) 


3200 CD0736 

3203 19 

3204 B7 

3205 3F 

3206 11E847 
3209 DF 
320R 3804 
320C 1 1 40FC 
320F 19 


CRLL 3607H 

RDD HL. DE 

OR R 

CCF 

LD DE.47E8H 

RST 18H 

3R C . 321 OH 

LD DE . 0FC40H 

RDD HL. DE 


3210 18CR 


3R 31DCH 


:Rdresse retten 
: Zei l enanf angsadresse holen 
; DE * Zeilenanfang 
;Rdresse zurück 
: Zei l enanf ang erreicht *> 

; 3a : Cursor zum Zeilenende 
:Cin der Zeile bleiben) 
;Nein: HL » Rdresse -1 
;Cursor 'ein' 


HL = Rdresse -1 
;+ Zeilenlänge » Endadresse 
der Zeile 
; Cursor 'ein' 


:R * Zeichen an der Cursor- 
: pos ition CR <> 0 !) 

:Neuen Wert abspeichern 


:R - 0 

; C IX+05H ) auf 0 setzen 


: Cursor löschen. DE » 40 
;Eine Zeilenlänge addieren 
:CY * 0 
:CY * 1 

;Ende des Bildschirms 
.•überschritten ? 

;Nein: ok 
:3a: DE * -960 

: HL «HL - 960 ( 24 # 40 abziehen W 
;damit der Cursor oben wieder 
:erscheint C wrap-around ) ) 

:Cursor 'ein' 


Cursor eine Zeile höher r » CHRS C 27) ) 


3212 CD0F36 

3215 19 

3216 1 1 0044 
3219 DF 
321R 3004 



CRLL 360FH 

RDD HL. DE 

LD CE.44C0H 

RST 18H 

3R NC.3220H 

i_D DE . vöEöH 

•iCD .-iL.DE 

, p ?i2c: j 


Cursor löschen. DE = -40 
Eine Zeilenlänge abziehen 
Rnfang des Bildschirms 
: er reicht *> 

Nein: ok 

:3a: 24 * 40 addieren damit der 
Cursor unten wieder erseneint 
: Cursor 'ein’ 



RENUM Einsprung von 31B8H 
I : HL - PTZ 


3222 2B 

3223 D7 

3224 2006 
3226 1 10A00 
3229 05 
322A 1813 


DEC HL 

RST 10H 

DR NZ.322CH 

LD DE . OOOAH 

PUSH DE 

DR 323FH 


Startzeilennummer und Rbstand angegeben 


322C D24R1E 
322F C05A1E 

3232 CF 

3233 2C 

3234 30F6 


DP NC.1E4RH 

CALL 1E5AH 

RST 08H 

DEFB *.•- 

DR NC.322CH 


3236 D5 
323T C05R1E 
323R 7R 
323B B3 
323C CR4R1E 
323F ED53E440 

3243 Dl 

3244 ED53E240 
3248 FD2RF940 
324C 110001 
324F FD 1 9 
3251 FDE5 
3253 2AA440 
3256 E5 


PUSH DE 

CRLL 1E5RH 

LD R.D 

OR E 

DP Z.1E4RH 

LD C40E4HD.DE 

POP DE 

LD C40E2HD.DE 

LD IY.C40F9HD 

LD DE.0100H 

ADD IY.DE 

PUSH IY 

LD HL.C40A4HD 

PUSH HL 


RENUM-Tabe l l e aufbauen 


3257 

3258 

3259 
325A 
325C 
325D 
325E 


284A 

23 


LD A.CHLD 

INC HL 

OR CHLD 

DR Z.32A6H 

INC HL 

INC HL 

CALL 33BAH 


3261 23 

3262 28F3 


INC HL 

DR Z.3257H 


3264 CD0833 


CALL 33D8H 


: PTZ -l 

: Zeichen angegeben 7 
: Da : weiter bei 322CH 
:Nein: Start-ZN * 10 
:DE retten 
weiter bei 323FH 


:FC-Error wenn Keine Ziffer 
; DE * Start-ZN 

;Danach mu0 ein Komma folgen 

;FC-Error wenn nach dem Komma 
; Kei ne Ziffer folgt 
: St ar t -ZN retten 
:DE ■ Abstand 
:Abstand - 0 *> 

:Da: FC-Error 

:Abstand retten 

: St ar t -ZN zurück 

;und abspeichern 

: IY = Endadresse des Programms 

: DE ■ 256 

: IY ■ IY + 256 

.•Endadresse + 256 retten 

:HL = Startadresse des Programms 

;Startadresse retten 


:Ende des Programms erreicht *> 
;Zeiger +1 

:nachster Zeilenpointer = o 7 
; Da : weiter bei 32A6H 
: Zeiger +2 

; Zei l e nach GOTO. GOSUB etc 
: absuchen 
: Zeiger +1 

:nächste Zeile bearbeiten wenn 
:kein Keyword gefunden wurde 
:ZN angegeben 7 

: C Be i THEN und ELSE kann entweder 
:ein Befehl oder eine Zeilen- 
: nummer stehen ! D 
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3267 

29 

DEC 

HL 

;Zeiger -1 

3269 

28F4 

3R 

Z.325EH 

:Nein: weitersuchen 

326* 

23 

INC 

HL 

:Zeiger +1 

326B 

E5 

PUSH 

HL 

: Programmzeiger retten 

326C 

D5 

PUSH 

DE 

:Tabel lenzeiger retten 

326D 

F0E5 

PUSH 

IY 

:Endadresse des Programms retten 

326F 

01 

POP 

DE 

:und zurück nach DE 

3270 

2*B 1 40 

LD 

HL. C40B1H) 

: HL » Höchster Speicherplatz 

3273 

ED52 

SBC 

HL. DE 

:Tabel lenzeiger davon abziehen. 
; Noch Platz im Speicher o 

3275 

D*7* 1 9 

DP 

C . 197*H 

;Nein: OM-Error 

3278 

110400 

LD 

DE.0004H 

;3a: Darüberhinaus noch 4 Bytes 

327B 

ED52 

SBC 

HL. DE 

: f rei ? 

327D 

D*7* 1 9 

3P 

C . 1 97*H 

.•Nein: OM-Error 

3280 

FD7000 

LD 

C IY+OOH) . B 

:3a: Rnzahl der Ziffern der 




_ 

gefundenen ZN abspeichern 

3283 

El 

POP 

HL 

; Tabel l enzeiger zurück 

3284 

CD5*1E 

C*LL 

1E5*H 

:DE » Gefundene ZN 

3287 

F07301 

LD 

( IY+01H ) .E 

: Zei l ennummer abspeichern 

328* 

FD7202 

LD 

C IY+02H) .0 


328D 

FD360300 

LD 

C IY+03H) . OOH 

:mit OOH markieren 

3291 

CDB133 

CRLL 

33B1H 

:IY um 4 erhöhen 

3294 

El 

POP 

HL 

: Programmzeiger zurück 

3295 

2B 

DEC 

HL 

: Zeiger -1 

3296 

23 

INC 

HL 

; Zeiger +1 

3297 

7E 

LD 

*. (HL) 

:* = nächstes Zeichen 

3298 

FE20 

CP 

20H 

Leerzeichen gefunden ^ 

329* 

28F* 

3R 

Z.3296H 

:3a: nächstes Zeichen holen 

329C 

FE2C 

CP 

2CH 

: Komma gefunden Cbei ON GOTO bzw 
: ON GOSUB ' ) 

329E 

2803 

OR 

Z.32R3H 

:3a: Wurde danach noch eine ZN 
: angegeben 

32*0 

2B 

DEC 

HL 

:Zeiger -l 

32*1 

18BB 

DP 

325EH 

;Zeile weiter absuchen 

‘ . ’ gefunden 




32*3 

23 

INC 

HL 

: Zeiger +1 

32*4 

1 8BE 

DR 

3264H 

: nächste ZN suchen 

RENUM-Tabel le fertig 





Jetzt die neuen Zeilennummern in die Tabelle einsetzen 


32*6 FD3600FF 
32** El 
32*B FDE 1 
32*D ED5BE240 
32B1 05 
3262 C 0E5 
32B4 E5 
32B5 D5 
3236 CDC209 


LD 

POP 

POP 

LD 

PUSH 

PUSH 

PUSH 

PUSH 

CPILL 


C IY+OOH) , OFFH : T abel le abschl ießen 
HL : Programmstart und 

IY :Tabel lenstart zurücH 

0E.C40E2H) : OE = Start -ZN 

DE :Neue ZN retten 

IY ;Tabel l enst ar t retten 

HL : 3 -ogr ammstarr retten 

DE : S t a - : - IN -etten 

09C2H ;3CDE = IHL'J: DE = Zeiger zur 

.•nächsten Zeile. BC = Zeilen- 
; nummer 
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32B9 7A 
32BA B3 
32BB 2841 
32BD EB 
32BE Dl 
32BF FDE5 


LD A.D 

OB E 

3R Z.32FEH 

EX DE. HL 

POP DE 

PUSH IY 


: Programmende erreicht ? 

:3a: weiter bei 32 FEH 
: HL ■ Zeiger zur nächsten Zeile 
:Neue ZN zurück 
:Tabel lenzeiger retten 


32C1 FD7E00 
32C4 3C 
32C5 2821 
32C7 FD7E03 
32CA B7 
32CB 2016 


32CD FD7E01 
32D0 B9 
32D1 2010 
32D3 FD7E02 

3206 B8 

3207 200A 


32D9 FD7301 
32DC FD7202 
32DF FD36030 1 
32E3 CDB133 
32E6 1 8D9 


LD 

INC 

3B 

LD 

OR 

3R 

LD 

CP 

3R 

LD 

CP 

3R 

LD 

LD 

LD 

CftLL 

3R 


A. C IY+OOH) 

A 

Z.32E8H 
A. ( IY+03H) 

A 

NZ.32E3H 

A. C IY+01HJ 
C - 
NZ.32E3H 
A. C IY+02H) 

B 

NZ.32E3H 

C IY+OIH) ,E 
C IY+02H5 .0 
C IV+03H) . 01H 
33B1H 
32C1H 


.•Tabellenende erreicht 0 
: CFFH +1 - OOH) 

;3a: weiter bei 32E8H 

:A = Tabellenmarker 

: Ist der Harker schon <> 0 

:3a: Diese Eintrag hat schon die 

.•neue Zeilennummer 

;Nein: Ist die jetzige Zeilen- 

:nummer schon in der Tabelle 

.•enthalten ° 


.•Nein: nächsten Eintrag über- 
; prüfen 

:3a: Neue Zeilennummer in die 
:Tabelle einsetzen 
:und den Eintrag markieren 
:Tabel lenzeiger um 4 erhöhen 
:Nächsten Eintrag überprüfen 


; Tabellenende erreicht, nächste Zeilennummer eintragen 


32E8 FDE1 
32EA E5 
32EB 2AE440 
32EE 19 

32EF DATA 1 9 


32F2 EB 
32F3 21F8FF 
32F6 ED52 
32F9 DA7A19 
32FB El 
32FC 1 8B7 


POP 

PUSH 

LD 

ADD 

3P 


EX 

LD 

SBC 

3P 

POP 

3R 


IV 

HL 

HL . C40E4H) 
HL. DE 

C . 1 97 AH 


DE. HL 
HL . 0FFF8H 
HL. DE 
C. 197AH 
HL 

32B5H 


:Tabel lenstart zurück 
: Programmzeiger zurück 
: HL * Abstand 

: HL * Neue ZN + Abstand = Nächste 
;neue ZN 

.•Nächste ZN > 65535 

:3a: OH-Error (falscher Fehler- 

: code 1 • ) 

: DE * Neue ZN 
: Neue ZN > 65529 ? 

:3a: OH-Error C?!?> 

: Programmzeiger zurück 
:Nächste Zeilennummer in der 
: Tabel l e suchen 
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Neue 


Zeilennummern ins Programm einsetzen 


32FE Dl 
32FF El 
3300 FDE1 

3302 Dl 

3303 7E 

3304 23 

3305 86 

3306 CABA31 

3309 23 
330A 73 
330B 23 
330C 72 
3300 C0BA33 

3310 23 

3311 2009 

3313 E5 

3314 2AE440 

3317 19 

3318 EB 

3319 El 
33 1 A 18E7 


POP DE 

POP HL 

POP IY 

POP DE 

LD A.CHL) 

INC HL 

OR (HL) 

3P Z.31BAH 

INC HL 

LD (HL).E 

INC HL 

LD (HL).D 

CALL 33BAH 

INC HL - 

JR NZ . 33 ICH 

PUSH HL 

LD HL.C40E4H) 

ADO HL. DE 

EX DE. HL 

POP HL 

3R 3303H 


GOTO. GOSUB etc. gefunden 


331C E5 
33 ID D5 
331E C0D833 


PUSH HL 

PUSH DE 

CALL 33D8H 


3321 

3322 

3323 

3324 


Dl 

El 

2B 


POP 

POP 

DEC 

3R 


3326 23 

3327 7E 

3328 FE20 
332A 28FA 


INC HL 

LD A.CHL) 

CP 20H 

3R Z.3326H 


332C D5 
332D E5 
332E FD6E01 
3331 FD6602 
3334 CD9433 


PUSH OE 

PUSH HL 

LD L.CIY+01H) 

LD H.CIY+02H) 

CALL 3394H 


T Z4E00 


.-Stack korrigieren 

: Programmstart zurück 

:Tabel lenstart zurück 

: St ar t -ZN zurück 

:Ende des Programms erreicht 


:3a: RENUM fertig 

:Neue Zeilennummer ins Programm 

:einsetzen 


: GOTO . GOSUB etc suchen 
:Zeiger +1 

:Sprung wenn Token gefunden 
;Zeiger retten 
: HL *■ Abstand 
:Nächste ZN ausrechnen 
: DE = Neue ZN 
:Zeiger zurück 

:Neue ZN ins Programm setzen 


.-Zeiger retten 
: Neue ZN retten 

:Gefunden ZN in den Zeilenbuffer 
:übertragen und die Anzahl der 
;Ziffern ermitteln 
:Neue ZN zurück 
:Zeiger zurück 
: Ze i ger -1 

.-Nächstes Token suchen wenn keine 
: ZN gefunden wurde (Nach THEN 
: oder ELSE z .B. ) 

: Zeiger +1 

:A = nächstes Zeichen 
: Leerzeichen gefunden *> 

:3a: HL bis zum nächsten 
:Zeichen <> ' ' erhöhen 

; Neue ZN retten 
:Zeiger retten 

: HL ■ Neue ZN für diese Stelle 

:Neue ZN im Zeilenbuffer ablegen 
: C in ASC I I -Format 1 ) 

:C * Anzahl der Ziffern C= Länge; 
:cer alten ZN 

cum nächsten ILnt-:g erhöhen 
.DE * Adresse der neuen ZN im 
:Zei lenbuf fer 
: hl » Progr ammzei ger 
; .zur ai :en ZNl 
;A1 te ZN an lieser Stelle 
: ersetzen 
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3342 Dl 

3343 28 

3344 23 

3345 TE 

3346 FE 20 
3348 28FA 
334 R FE2C 
334C 2803 
334E 2B 
334F 1 8BC 


POP OE 

DEC HL 

INC HL 

LO A.CHL) 

CP 20H 

OR Z.3344H 

CP 2CH 

3R Z.3351H 

DEC HL 

3R 330DH 


: Neue ZN zurück 
: Ze i ger -1 
: Zeiger +1 

:Zeiger bis zum nächsten Zeichen 
:<> Leerzeichen erhöhen 

; Komma gefunden ? 

:3a: Folgt danach noch eine ZN ? 
:Nein: Zeiger -1 
:Nächstes Token suchen 


: ' . ' gefunden ( Bei 

3351 23 

3352 1 8C8 


ON GOTO bzw. ON GOSUB) 

INC HL 

3R 331CH 


: Zeiger +1 

:Nächste ZN ersetzen 


B Zeichen aus dem Programm löschen 
I: B * Anzahl der zu löschenden Zeichen 
HL * Zeiger auf Programmtext 

Cab C HL 5 werden B Bytes aus dem Programmtext entfernt) 


3354 05 

3355 C5 

3356 E5 

3357 E5 

3358 01 

3359 05 
335A 05 
335B 2AF940 
335E E5 
335F 2B 

3360 13 

3361 10FC 
3363 22F940 

3366 El 

3367 CI 

3368 ED42 
336A 23 
336B E5 
336C CI 
3360 El 
336E EB 


336F EDBO 

3371 El 

3372 CI 

3373 01 

3374 C9 


PUSH DE 

PUSH BC 

PUSH HL 

PUSH HL 

POP OE 

PUSH DE 

PUSH DE 

LD HL.C40F9H) 

PUSH HL 

OEC HL 

INC OE 

DONZ 335FH 

LO C 40F9H ) . HL 

POP HL 

POP BC 

SBC HL . BC 

INC HL 

PUSH HL 

POP BC 

POP HL 

EX DE. HL 


LDIR 

POP HL 

POP BC 

POP DE 

RET 


:Register retten 


:0E * Programmtextzeiger 
: DE zweimal retten 

: HL * Endadresse des Programms 
:Endadresse retten 
:Endadresse -1 
: Programmzeiger +1 
: wei ter bis B » 0 
:Neue Endadresse abspeichern 
:Alte Endadresse zurück 
: Programmzeiger zurück 
:Anzahl der Bytes die verschoben 
:werden müssen errechnen 
:Anzahl retten 
:und nach BC zurück 
: Programmzeiger zurück C2. mal) 
:DE = Programmzeiger auf zu 
löschende Zeichen. 

; HL = Programmzeiger auf rest- 
lichen Programmtext (nach den zu 
löschenden Zeichen) 

: Programmtext verschieben 
:CBC « Zähler) 

:Register zurück 



3 Zeichen in den Programmtext einfügen 
1:3 * Anzahl der einzurügenden Zeichen 
HL » Zeiger auf Programmtext 

Cab CHL) können B Bytes in den Programmtext eingefügt werden) 


3375 05 

3376 C5 

3377 E5 

3378 2AF940 
337B ES 
337C 01 
3370 23 
337E 10FD 
3380 22F940 

3383 CI 

3384 C5 

3385 E5 

3386 B7 

3387 ED42 

3389 E5 
338A CI 
338B 03 
338C El 
3380 EB 
338E E0B8 

3390 El 

3391 CI 

3392 Di 

3393 C9 


PUSH OE 

PUSH BC 

PUSH HL 

LD HL.C40F9H) 

PUSH HL 

POP OE 

INC HL 

D3NZ 337DH 

LO C 40F9H ) , HL 

POP BC 

PUSH BC - 

PUSH HL 

OR A 

SBC HL . BC 

PUSH HL 

POP BC 

INC BC 

POP HL 

EX DE. HL 

LDDR 

POP HL 

POP BC 

POP DE 

RET 


: Register retten 


: HL = Endadresse des Programms 

: HL retten 

.-und zurück nach DE 

:Endadresse +1 

[weiter bis B * 0 

:Neue Endadresse retten 

: Programmtextzeiger zurück 

:und wieder retten 

:Endadresse retten 

:CY - 0 

: Anzahl der restlichen Zeichen 
;bis zum Programmende errechnen 
: Anzahl retten 
:und zurück nach BC 
:Anzahl +1 

:Neue Endadresse zurück 
:nach DE 

; Programm verschieben 
: Register zurück 


Zeilennummer ins ASCII-Format umwandeln und im Zeilenbuffer ablegen 
I : HL * Zeilennummer 

0: B * Anzahl der Ziffern (Länge der Zeilennummer) 

HL * Zeiger auf die Zeilennummer im ASCII-Format 


3394 05 

3395 222141 
3398 010000 
339B 2AA740 
339E E5 
339F CD2F13 
33A2 El 
33A3 0605 
33A5 7E 
33A6 0630 
33A8 2005 
33AA 23 
:3nB 1 3F3 

' :r>0 23 





PUSH 

LD 

LD 

LD 

PUSH 

CALL 

POP 

LD 

LD 

SUB 

3R 

INC 

D3NZ 

OEC 


DE 

C4121H) .HL 
BC .OOOOH 
HL. C40A7H) 
HL 

132FH 

HL 

B.05H 
A. CHL) 

30H 

NZ.33AFH 

HL 

33A5H 


:DE retten 

:Nummer in X ablegen 

:Keine Formatierung 

; HL « Adresse des Zeilenbuffers 

[Adresse retten 

:Zahl decodieren 

[Adresse zurück 

:B * maximale Stellenzahl 

:A = nächste Ziffer 

[Führende Null ? 

[Nein: Fertig 

:3a: Zeiger erhöhen 

[Nächste Ziffer 

:Al'.e Zi 'ern * V: Zeiger 

: ' zeigt auf »:na "V : 

:Zänler - i Ci Ziffer) 

:DE zurücm 


Z52 



: Tabellenzeiger auf den nächsten Eintrag erhöhen 


33B 1 F023 
33B3 F023 
33B5 FD23 
33B7 F023 
33B9 C9 


INC IV 

INC IY 

INC IV 

INC IV 

RET 


Zeile ab (HL) nach GOTO. GOSUB etc absuchen 
I : HL « Zeiger auf Zeilentext 
0: R * gefundenes Token 

Z = 1 kein Token gefunden 

HL = Zeiger auf gefundenes Token oder Zeilenende 


33BA 23 
33BB 7E 
33BC B7 
33B0 C8 
33BE FE80 
33C0 280C 
33C2 FE9 1 
33C4 2808 
33C8 FECR 
33C8 2804 
33CR FE95 
33CC 20EC 


INC HL 

LD A.C4L) 

OR R 

RET Z 

CP 8DH 

3R Z.33CEH 

CP 91H 

3R Z.33CEH 

CP OCftH 

3R Z.33CEH 

CP 95H 

3R NZ.33BAH 


; Zeiger +l 

:A = nächstes Zeichen 
:Zeilenende erreicht ? 
:3a: Fertig 
: 'GOTO' -Token ? 

:3a: weiter bei 33CEH 
: 'GOSUB' -Token "> 

:3a: weiter bei 33CEH 
: 'THEN’ -Token ? 

:3a: weiter bei 33CEH 
: 'ELSE '-Token ? 

:Nein: nächstes Zeichen 


: Token gefunden 


33CE 2B 
33CF 7E 
33D0 FEFF 

3302 23 

3303 7E 
33D4 28E4 

3306 A7 

3307 C9 


DEC HL 

LD A.CHL) 

CP OFFH 

INC HL 

LD A.CHL) 

3R Z.33BAH 

AND A 

RET 


:War es ein Colour Basic Token 
:War das vorherige Zeichen 
: gl eich OFFH ? 

: Zeiger +1 

:Zeichen wieder zurück 
:3a: weitersuchen 
:Nein: Z = 0 


Länge der gefundenen Zeilennummer feststellen und Zeilennummer 
in den Zeilenbuffer übertragen 

I : HL ■ Zeiger auf Zeilennummer Cauf gefundenes Token + 1) 

0: B = Anzahl der Ziffern (Länge der Zeilennummer) 

DE = Zeiger auf Zeilenbuffer Cab (DE) steht die Zeilennummer) 
HL = Zeiger auf nächstes Zeichen nach der Zeilennummer 


33D8 ED5BA740 
33DC 05 
33DD 0600 
33DF 7E 
33E0 FE20 
33E2 280B 


LD 

PUSH 

LD 

LD 

CP 

3R 


DE. C40A7H) 
DE 

B.OOH 

A.CHL) 

20H 

Z.33EFH 


: DE = Adresse des Zeilenbuffers 
:Adresse retten 
: Zäh l er auf 0 
:nächstes Zeichen holen 
:Leerzeichen gefunden 0 
:3a: nächstes Zeichen 
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33E4 pE30 
33E6 3800 
33E8 FE 30 
33E0 3006 
33EC 04 
33ED 12 
33EE 13 
33EF 23 
33F0 18ED 


CP 30H 

3R C.33F2H 

CP 30H 

3R NC.33F2H 

INC B 

LD C DE ) . 0 

INC DE 

INC HL 

3R 33DFH 


:Ziffer gefunden ? 
: Ne i n : Fertig 
.•Ziffer ? 

: Ne i n : Fertig 
:3a: Zähler +1 
.•Ziffer abl egen 
:Buf ferzeiger +1 
: Zei l enzeiger +1 
:Nächstes Zeichen 


33F2 OF 
33F3 12 

33F4 Dl 
33F5 04 
33F6 05 
33F7 C9 


XOR O 

LO ( DE ) . 0 

POP DE 

INC B 

DEC B 

RET 


O * OOH 

:Ende der Zeilennummer im Buffer 
markieren 

: Buf f eradresse zurück 
Z-Flag setzen 

; Z ■ 0 wenn Ziffern gefunden 


Programmtext so verschieben. daß die neue Zeilennummer eingepasst werden kann 
und die neue Zeilennummer einsetzen 
I: B = Länge der neuen Zeilennummer 
C = Länge der alten Zeilennummer 
HL = Zeiger auf Programmtext 

Cab CHL) wird die neue Zeilennummer eingefügt) 

OE * Zeiger auf die neuen Zeilennummer C im OSC I I -Format ) 


33F8 C5 
33F9 78 
33F0 99 
33FB 2810 


PUSH 

LD 

SBC 

3R 


BC 


Z.3400H 


33FD 05 
33FE 2808 


DEC B 

3R Z.3408H 


3400 00 

3401 20F6 


DEC C 

3R NZ.33F9H 


3403 CD7533 COLL 3375H 

3406 1805 3R 340DH 


: Ölte Länge ist größer als die neue Länge 


3408 41 

3409 05 
3400 C05433 
340D CI 
340E 10 
3U0F T7 


LD B.C 

DEC B 

COLL 3354H 

POP BC 

LD O.CDE) 

LD C HL ) . O 


34-10 

3^11 


3414 



C3 


:nc oe 

:nc hl 

33NZ 34CEH 

RET 


Längen retten 
O * neue Länge 
- alte Länge 

Zeilennummer einfügen wenn beide 


: Längen identisch 
:Neue Länge -l 
:weiter bei 3408H 
; größer ist 
:Ol te Länge -1 
: weit er bei 33F9H 
:kleiner ist 
.•Zeichen einfügen 
:und Zeilennummer 


sind 

wenn alte Länge 
wenn alte Länge 
übertragen 


B = Rest länge 
:B -1 

Zeichen löschen 
Längen zurück 
Ziffer vom Zeilenbuffer 
in den F^ogr ammtext über- 
tragen 

Buf'erzeiger -1 
P-ogrammzeiger - 
3 Bytes übertragen 



Taste holen und FKEY Überprüfen (siehe 3000HD 


3415 CD4900 
3418 FE5C 
34 1 A 383C 
34 IC FE60 
34 iE 3038 
3420 D65B 


CALL 0049H 

CP 5CH 

CR C.3458H 

CP 60H 

CR NC . 3458H 

SUB 5BH 


:Auf Tastendruck warten 
: FHEY-Taste gedrückt ? 

: Nei n : weiter bei 3458H 
; FHEY-Taste ? 

: Nein : weiter bei 3458H 
;Ca: R * 01 bis 04 für 
: FKEY 1 bis 4 


FKEY-Text in Zeilenbuffer ablegen 

A * Code des gewünschten FHEY-Textes (01 bis 08 für FKEY1 bis FHEY8) 


3422 57 

3423 78 

3424 FE07 
3426 38ED 

3428 7A 

3429 C5 
342A E5 
342B 214943 
342E 110700 

3431 19 

3432 30 

3433 20FC 

3435 Dl 

3436 0607 

3438 7E 

3439 FEOO 
343B 2812 

3430 12 
343E D5 
343F CD3300 

3442 Dl 

3443 23 

3444 13 

3445 10F1 

3447 EB 

3448 CI 

3449 78 
344A D607 
344C 47 

3440 18C6 


LD O.A 

LD A.B 

CP 07H 

CR C.3415H 

LD A.D 

PUSH BC 

PUSH HL 

LD HL.4349H 

LD DE.0007H 

AOD HL. DE 

DEC A 

CR NZ . 343 1H 

POP OE 

LD B.07H 

LO A . ( HL 5 

CP OOH 

CR Z.344FH 

LD (DEKA 

PUSH DE 

CALL 0033H 

POP DE 

INC HL 

INC DE 

DCNZ 3438H 

EX DE. HL 

POP BC 

LD A.B 

SUB 07H 

LD B. A 

CR 3415H 


:D = Code 

; A * maximale Zeichenzahl 
: (siehe 05D9H ff) 

:noch 7 Zeichen erlaubt ? 
:Nein: neue Taste holen 
;Code zurück nach A 
; Zäh l er retten 
:Buf Terzeiger retten 
: HL • Zeiger auf FKEY-Texte - 
; DE - Länge eines Textes 
; HL auf nächsten Text erhöhen 
:Code -1. gewünschten Text 
: erreicht ? 

:Nein: nächsten Text 
;Buf ferzeiger zurück 
:7 Zeichen übertragen 
; Zeichen holen 

; Sol l 'RETURN' eingefügt werde 

: Ca : weiter bei 344FH 

:Zeichen ablegen 

:Buf ferzeiger retten 

:Zeichen darstellen 

: Buf ferzeiger zurück 

;Textzeiger +1 

:Buf ferzeiger +1 

:Nächstes Zeichen 

: HL * Bufferzeiger 

:Zähler zurück 

:A = Zähler 

:7 Zeichen abziehen 

:Zähler zurück 

:Nächsten Tastendruck abwarten 


RETURN' einfügen 


344F EB 

3450 78 

3451 CI 

3452 80 

3453 D607 

3455 47 

3456 3E0D 

Shift-FKEY gedrückt 

3458 FE7C 
345R DR0330 
345D FE80 
345F D20330 
3462 0677 
3464 1 SBC 

FKEY 

3466 2B 

3467 07 

3468 D24R1E 
346B 0630 
3460 F5 
346E 23 
346F CF 

3470 05 

3471 CF 

3472 22 

3473 Fl 

3474 FE01 
3476 0R4R1E 
3479 FE09 
347B 30EB 
3470 E5 
347E 214943 
3481 110700 

3484 19 

3485 30 

3486 20FC 

3488 EB 

3489 El 
348R 2B 


EX DE. HL 

LD R.B 

POP BC 

RDD R.B 

SUB 07H 

LD B.R 

LD R.OOH 

CFHEY5 bis FHEY8 ) 

CP 7CH 

3P C.3003H 

CP 80H ” 

DP NC.3003H 

SUB 77H 

3R 3422H 


OEC HL 

RST 10H 

3P NC.1E4RH 

SUB 30H 

PUSH RF 

INC HL 

RST 08H 

OEFB '-'-Token 

RST 08H 

DE FE 

POP RF 

CP 01H 

3P C.1E4RH 

CP 09H 

3R NC.3468H 

PUSH HL 

LD HL.4349H 

LD DE.0007H 

RDD HL. DE 

DEC R 

3R NZ.3484H 

EX DE. HL 

POP HL 

DEC HL 


HL - Bufferzeiger 
R * Rest lange des FKEY-Textes 
Zähler zurück 
R = maximale Zeichenzahl 
+ Rest länge 
7 Zeichen abziehen 
neuen Zähler zurück 
R - 'RETURN' -Zeichen 


FKEY gedrückt * 

Nein: weiter bei 3003H 
FKEY ? 

Nein: weiter bei 3003H 
R - Code ( 05H bis 08H ) 
weiter bei 3422H 


: PTZ -1 

:Nächstes Zeichen holen 
: FC-Error wenn keine Ziffer 
: R ■ Zifferwert CI bis 8) 
:Ziffernwert retten 
: PTZ +1 

:Nächstes Zeichen muß sein 

:3etzt muß eine Stringkonstante 
: folgen 

:Ziffernwert zurück 
;Ziffernwert < 1 ? 

:3a: FC-Error 
: Zi f f ernwer t > 8 *» 

:3a: FC-Error 
: PTZ retten 

: HL - Zeiger auf FKEY-Texte - 7 
: DE * Länge eines FKEY-Textes 
: HL auf gewünschten FKEY-Tex t 
: erhöhen 
: Zäh l er -1 
: Nächsten Text 
: OE * Zeiger auf FKEY -Text 
: PTZ zurück 
: PTZ -1 
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348B 0607 
3480 D7 
348E FE 22 
3480 2S0C 
3492 FE00 
3494 2808 

3496 12 

3497 13 

3498 1 0F3 
3498 23 
3498 CF 
349C 22 
3490 C9 


!_3 3.07H 

RST 10H 

CP 22H 

3R Z.349EH 

CP OOH 

3R Z.34R0H 

LD CDE),8 

INC DE 

03NZ 3480H 

INC HL 

RST 08H 

DEFB 
RET 


:7 Zeichen übertragen 
: Nächstes Zeichen holen 
:Ende erreicht ? 

;0a: weiter bei 349EH 
: 'RETURN’ einfügen * 

:3a: weiter bei 34R0H 
:Nein: Zeichen ablegen 
.-Zeiger +1 
:Nächstes Zeichen 
: PTZ +1 

:Das letzte Zeichen muß "" sein 


Textende erreicht 


349E 3E20 

3480 12 

3481 05 

3482 2803 

3484 13 

3485 1 8F9 

3487 B7 

3488 C8 

3489 1 8F0 


LD 8.20H 

LD CDEK8 

DEC B 

3R Z.3487H 

INC DE 

3R 3480H 

OR 8 

RET Z 

3R 349BH 


:Restliche Zeichen durch 
Leerzeichen ersetzen 
: Fer t i g ? 

:3a: weiter bei 3487H 
:Nein: Zeiger +l 
;Nächstes Zeichen löschen 
: War das letzte Zeichen OOH ? 
:3a: Fertig 

;Nein: auf ”” überprüfen 


FKEY-Texte Cdiese Tabelle wird ins R8M ab 4350H Kopiert) 


348B 4C 49 53 54 20 20 20 
34B2 52 55 4E 20 20 20 20 
34B9 41 55 54 4F 20 20 20 
34C0 45 44 49 54 20 20 20 
34C7 52 45 4E 55 4D 20 20 
34CE 53 59 53 54 45 40 00 
34D5 43 4C 4F 41 44 20 20 
34DC 43 53 41 56 45 20 22 


FHEY1: LIST 

FKEY2: RUN 

FHEY3 : 8UT0 

FKEY4: EDIT 

FKEY5: RENUM 

FKEY6: SYSTEM <RETURN> 

FKEY7: CL08D 

FKEY8 : CS8VE” 


& 


34E3 D7 
34E4 FE48 
34E6 203B 


RST 10H :nächstes Zeichen holen 

CP 48H : Ist es ’H* *> 

3R NZ.3523H :Nein: Dann muß es '0' sein 


Hexadezimale Konstante decodieren 


34E8 23 
34E9 CDF334 
34EC ES 
34ED EB 
34EE C09808 
34F1 El 
34F2 C9 


INC HL 

C8LL 34F3H 

PUSH HL 

EX DE. HL 

C8LL 0898H 

onp HL 

RE* 


PTZ +1 

DE = Konstante 

PTZ retten 

HL = Konstante 

81 s INT nach X laden 

P T Z zurück 
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OE « S.H CHLJ 


34F3 110000 
34F6 CD0135 
34F9 57 
34 FA 23 
34FB C00135 
34FE 5F 
34FF 23 
3500 C3 


LO OE.OOOOH 

CALL 350 IH 

LD D.A 

INC HL 

CALL 350 1H 

LO E.A 

INC HL 

RET 


Ergebnis = O 
MSB decodieren 
0 - MSB 
PTZ +1 

LSB decodieren 
: E * LSB 
PTZ +1 


A 


IH CHL) 


3501 CD0F35 

3504 07 

3505 07 

3506 07 

3507 07 

3508 23 

3509 47 
350A CD0F35 
3500 80 


350E C9 


CALL 350FH 

RLCA 

RLCA 

RLCA 

RLCA 

INC HL 

LD B.A 

CALL 350FH 

AOO A.B 

RET 


:Half-Byte decodieren 
:In Bits 4-7 schieben 


: PTZ +1 

:In B Zwischenspeichern 
;2. Half-Byte decodieren 
:und letztes Zwischenergebn 
; addieren 


Eine Hexadez i ma l z i f f er decodieren 


350F 7E 
3510 0630 
3512 DA4A1E 
3515 FEOA 

3517 08 

3518 0607 
35 1 A DA4A1E 
3510 FE 10 
35 1 F D24A1E 
3522 C9 


LD A.CHL) 

SUB 30H 

JP C.1E4AH 

CP OAH 

RET C 

SUB 07H 

JP C.1E4AH 

CP 10H 

JP NC.1E4AH 

RET 


:A * Zeichen 
:Zeichen < *0' ? 

:3a: FC-Error 
.•Zeichen > *9' 0 
:Nein: Wert ok 
:Ja: Zeichen < 'A* ? 
: Ja : FC-Error 
: Zeichen > 'F* ? 

:3a: FC-Error 


«.0 


3523 FE4F 
3525 C29719 


CP 4FH :*0' gefunden 7 

JP NZ.1997H : Ne i n : SN-Error 


Oktale Konstante decodieren 


3523 110000 
352B 23 
352C CD4535 



LD OE.OOOOH 

INC HL 

CALL 3545H 

RLCA 

RLCA 

=LCA 

INC HL 

uO B.A 


:Ergebnis = 0 
; PTZ +1 

:Höchste 2i decodi-en 
;3i ts 0-2 r' reiscnieben 


; ^wiscnenergeonis 


nacn S 



u 


3534 

3537 

3538 

3539 
353 A 
353B 
353C 
3530 

3540 

3541 

3542 

3543 


CALL 354FH 

ADD A . B 

RLCA 

RLCA 

RLCA 

INC HL 

LD B.A 

CALL 354FH 

ADD A . B 

LD E.A 

INC HL 

3R 34ECH 


nächste ZifTer decodieren 
:zum Zwischenergebnis addieren 
Bits 0-2 freischieben 

PTZ +1 

Zwischenergebnis nach B 
letzte Ziffer decodieren 
zum Zwischenergebnis addieren 
LSB-Wer t nach E 
PTZ +1 

Als INT nach X laden 


; Höchste Oktalziffer C 'O' - *3‘) decodieren 


3545 7E 

3546 D630 
3548 380D 
354A FE04 
354C D8 
354D 1808 


LD A.CHL) 

SUB 30H 

3R C.3557H 

CP 04H 

RET C 

3R 3557H 


:A » Zeichen 
sZeichen < '0’ 7 
; 3a : FC-Error 
:Zeichen < '4* ? 
;3a: ok 

.•Nein: FC-Error 


: Niedere Oktalziffer 

354F 7E 
3550 D630 
3552 3803 
3554 FE08 

3556 08 

3557 C34A1E 


C'O' - '7’) decodier 

LD A.CHL) 

SUB 30H 

3R C.3557H 

CP 08H 

RET C 

3P 1E4AH 


:A = Zeichen 
:Zeichen < '0' ? 
:3a: FC-Error 
:Zeichen < '8' ? 
:3a: ok 

:Nein: FC-Error 


: CALL 


355A 

355D 

355E 

355F 

3562 

3563 


C0F334 

E5 


CALL 34F3H 

PUSH HL 

EX DE. HL 

LD DE.3567H 

PUSH DE 

3P (HL) 


:Hex-Konstante nach DE 
: PTZ retten 

:HL * Hex-Konstante (Adresse) 
: RET- Adr auf 3567H setzen 

;Routine anspringen 


3564 FF 
SJ 3565 FF 
3566 FF 


RST 38H 
RST 38H 
RST 38H 


: RET von CALL-Routine 


3567 El 

3568 C9 


POP HL : PTZ zurück 

RET 
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Farbcode-Anpassungs-Tabel le (wird ins RAM ab 4390H kopiert) 

Bei den ersten Col our-Genies wurde der COLOUR-Wert direkt ins Farb-RAM 
(ab FOOOH) geschrieben. Durch Schaltungsanderungen in den neueren Geräten 
wurden jedoch die Farbcodes vertauscht, so daß durch diese Tabelle eine 
Anpassung auf die alten Geräte erreicht werden musste. 

Diese Tabelle gibt nun für jeden COLOUR-Wert den Wert an. der ins Farb-RAM 
geschrieben werden muß um die alte Reihenfolge wieder zu erhalten 


Wert im Farb-RAM COLOUR-Wert 


3563 03 1 

356A 05 2 

356B 02 3 

356C 04 4 

3560 06 5 

356E 08 6 

356F 01 7 

3570 OE 8 

3571 09 9 

3572 10 10 

3573 07 1 1 

3574 OB 12 

3575 OC 13 

3576 00 14 

3577 OA 15 

3578 OF 16 


Textkonstante ab CHL) und Ton ausgeben (Bei Fehlermeldungen) 


3579 CDA728 
357C 110900 
357F D5 

3580 110008 

3583 D5 

3584 U3E10 

3587 D5 

3588 117800 
358B 3E01 
358D CD2A3E 

3590 Dl 

3591 3E08 
3593 CD2A3E 

3596 Dl 

3597 3E0C 
3599 CD2A3E 
359C Dl 
359D 3E00 
359F C3323E 


CALL 28A7H 

LD DE.0009H 

PUSH DE 

LD DE.0800H 

PUSH DE 

LD DE.103EH 

PUSH DE 

LD DE.0078H 

LD A.01H 

CALL 3E2AH 

POP DE 

LD A.08H 

CALL 3E2AH 

POP DE 

LD A.OCH 

CALL 3E2AH 

POP DE 

LD A.OOH 

3P 3E32H 


: Tex t ausgeben 
: PSG- Programmi er ungs werte 
:ins Stack schreiben 


; D und E * PSG-Werte 
:A * Register CO und 1) 
: SOUND A.D: SOUND A-l.E 
:Wert zurück 
:Register 7 und 8 

:Wert zurück 
: Register 11 und 12 

:Wert zurück 
; Register 13 
: SOUND A.E 


.‘PRO t: xr SHARE siehe 3CF2H ff) 

Startadresse aer SHAPE- T aoe t i e nach HL aoen 


35A2 



2AB14C 


LC HL.I4061H) : HL = Start der SHAPE-Taoei ie 

INC HL :-i 


iHAPE 



UPRO für PRINT» 


35R9 CDB535 
35AC C33F02 


CALL 35B5H :Zahl decodieren 

3P 023FH ; Leader und Sync schreiben 


UPRO für INPUT» 


35AF COB535 
35B2 C34C02 


CALL 35B5H :Zahl decodieren 

3P 024CH : Leader und Sync suchen 


Zahl bei PRINT» und 

35B5 AF 
35B6 CDO 12B 
35B9 CF 
35BA 2C 
35BB 7B 
35BC A2 


35B0 C602 
35BF D24A1E 
35C2 C9 


INPUT# decodieren 

XOR A 

CALL 2B0 1 H 

RST 08H 

DEFB ' . ‘ - 

LD A.E 

AND D 


ADD A.02H 

3P NC.1E4AH 

RET 


:A - 0 

:Zahl nach DE holen 
:Oanach muß ein Komma folgen 

: A » LSB 

:mit MSB verknüpfen (MSB muß FFH 
:sein. da eine negative Zahl 
:verlangt wird) 

; War die Zahl -1 oder -2 
;Nein: FC-Error 
:3a: ok 


Lautsärke des angegebenen Kanals auf 0 setzen (unbenutzt) 

I : HL « PTZ auf Argument oder Befehls- bzw. Zeilenende 

Liegt Wert des Argument zwischen 1 und 3. dann wird die Lautstärke des 
entsprechenden Kanal des PSG auf Null gesetzt. 

Ist kein Argument angegeben, so wird die Lautstärke aller Kanäle auf Null 
gesetzt 

Diese Routine kann mit Hilfe der folgenden Befehle über den KILL-Befehl 
angesprochen werden, (also durch KILL n oder KILL) 

POKE tH4 1 92 . 195 : POKE I.H4193 . 53 


35C3 2B 
35C4 DT 
35C5 28 1A 
35C7 CD1C2B 
35CA 0608 
35CC FE01 
35CE 280B 
35D0 04 
3501 FE 02 
35D3 2806 
35D5 04 
35D6 FE03 
35D8 C24A1E 
?50B 79 
35DC 1E00 


DEC HL 

RST 10H 

3R Z.35E1H 

CALL 2B1CH 

LD B.08H 

CP 01H 

3R Z.350BH 

INC B 

CP 02H 

3R Z.35DBH 

INC B 

CP 03H 

3P NZ.1E4AH 

LD A.B 

LD E.OOH 

3P ?E32H 


: PTZ -1 

Kanalnummer angegeben *> 

Kein: weiter bei 35E1H 
:3a: Zahl nach A 
:Register * 8 
: Zahl - 1 -> 

:3a: Reg i 5 t ernummer ok 
:Register = 9 
: Zah l = 2 

:3a: Reg i s t er nutnmer ok 
:Register * 10 
: Zah l - 3 •> 

: Ne i n : FC-Error 
: A = Registernummer 
:E - 00 

:S0UN0 ° . E ''Lautstärke des ange- 
:geoenen Kanals auf 0 setzen) 



Kein Kanal angegeben: Lautstärke aller Kanäle auf 0 setzen 


35E1 3E0A 
35E3 110000 
35E6 CD2A3E 
35E9 3E08 
35EB C3323E 


LD A.OAH 

LD DE.OOOOH 

CALL 3E2AH 

LD A.08H 

3P 3E32H 


rLautstärke der Kanäle 2 und 3 
:auf 0 setzen 

rLautstärke des Kanals 1 auch 
rauf 0 setzen 


UPRO für die Bi Idschi rmausgabe 

Zeichen in A bei C HL 3 darstellen und Zeichenfarbe setzen 


35EE 77 
35EF CD7A30 
35P2 23 
35F3 CD7A30 
35F6 2B 
35F7 C9 


LD CHL).A 

CALL 307AH 

INC HL 

CALL 307AH 

DEC HL - 

RET 


rZeichen darstellen 
rZeichenf arbe setzen 
rAdresse +1 für Cursor 
rCursorfarbe setzen 
rAdresse -1 


UPRO für die Bildschirmausgabe 
Neuen Farbcode ins Farb-RAM setzen 


35F8 liOOAC 


LD DE . 0AC00H 


35FB FE20 
35FD C28030 
3600 3A9043 

3603 19 

3604 C38F30 


CP 20H 

OP NZ.3080H 

LD A.C4390H) 

ADO HL. DE 

OP 308FH 


UPRO für 'Cursor eine Zeile tiefer’ 


3607 112800 
360A 3E20 
360C C37A30 


LD DE.0028H 

LD A.20H 

OP 307AH 


UPRO für 'Cursor eine Zeile höher 


LD 

OR 


360F l 1D8FF 
3612 18F6 


UPRO für 'Cursor ein/aus' 
3614 2002 OR 

LD 


3616 3E20 
3618 C37A30 


OP 


DE . 0FFD8H 
360AH 


A.20H 
307 AH 


UPRO für 'Carriage Return' 

36 1 B CD0A36 CALL 

361E C36531 OP 


360AH 

3165H 


OE - Offset zum Farb-RAM 
(Bi Idschirmad resse + DE 
« zugehörige Farb-RAM-Adresse ) 
Zeichen = Leerzeichen "> 

Nein: Neue Farbe setzen 

Oar A « COLOURO-Code 

HL =» Farb-RAM-Adresse 

Bei Leerzeichen COLOURO setzen 


:0E - 40 CZei len länge) 

; A ■ Leerzeichen 
rLeerzeichen ausgeben 
; CCursorzeichen löschen) 


: DE « -40 CZei lenlänge) 
rLeerzeichen ausgeben 


r Sprung nach 3618H (siehe 306EH) 
rZeichen in A ausgeben 


; Cursorzeichen löschen 
rweiter bei 3165H 
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UPRO für COLOUR- Änderung .siehe 3017H) 


3621 322340 LD 
3624 2R2040 LD 
3627 C35F30 3P 

UPRO für PRINT« (siehe 2086H) 
Neue Bi l dschi rm-POS errechnen 


362A E5 PUSH 

362B EB EX 

362C 112800 LD 

362F 19 ROD 

3630 B7 OR 

3631 E0S2 SBC 

3633 30FC 3R 

3635 19 ROO 

3636 7D LD 

3637 El POP 

3638 C9 RET 


UPRO für Scroll (siehe 3196H 
Register vorbereiten 


3639 09 EXX 

363R Fl POP 

363B C5 PUSH 

363C 05 PUSH 

3630 E5 PUSH 

363E 1 100F0 LD 

3641 2128F0 LD 

3644 01C003 LD 

3647 C5 PUSH 

3648 09 EXX 

3649 110044 LO 

364C 212844 LO 

364F CI POP 

3650 F5 PUSH 

3651 C9 RET 

30V als Befehl 

3652 7E LD 

3653 23 INC 

3654 FEDB CP 

3656 CRC536 3P 

3659 FERO CP 

365B CRB336 3P 

365E C 337 1 3 CP 


( 4023H ) .R 
HL. (4020H) 
305FH 


HL 

OE. HL 
DE.0028H 
HL. OE 
R 

HL. DE 
NC .3631H 
HL. DE 
R.L 
HL 


f f ) 


AF 

BC 

DE 

HL 

DE.OFOOOH 
HL . 0F028H 
BC .03C0H 
BC 

DE.4400H 
HL . 4428H 
BC 
RF 


R. (HL) 
HL 

OOBH 
Z.36C5H 
OROH 
Z.3683H 
i 397H 


: Neuen COLOUR-Wert abspeichern 
: HL * Aktuelle Cursoradresse 
: Cursor einschalten 


: HL retten 
: HL * 9-Argument 
: OE - 40 (Zeilenlänge) 
.•Zeilenlänge addieren 
:CY - 0 

:Zeilenlänge solange abziehen. 
:bis ein Unterlauf ergfolgt 
:Zeilenlänge addieren 
: L - Aktuelle POS 
:HL zurück 


.•Registersatz tauschen 
: RET-Rdr nach RF 
: Register retten 


:2. Registersatz auf 
; Farbspeicher-Scrol l vorbereiten 

: BC als Zähler retten 
.•Register tauschen 
jl. Registersatz aur Bildschirm- 
: speie he r-Scrol l vorbereiten 
:Zähler zurück 
: RET-Rdr ins Stack 


Nächstes Zeichen holen 
PTZ +1 

'INP' -Token gefunden *» 
3a: weiter bei 36C5H 
'OUT '-Token gefunden 
3a: weiter bei 36B3H 
Nein: SN-Error 



COLOUR rechts vorn Gleichheitszeichen 
CNIE benutzen ! ! ) 


3661 

3R2340 

LO 

A. C4023H) 

A - COLOUR-Wert 

3664 

3C 

INC 

A 

: A > FFH C+ 1 ■ 0 7) 

3665 

CR0D37 

3P 

Z.370DH 

:3a: 0 ist Ergebnis 

3668 

B8 

CP 

B 

:wozu 7 

3669 

77 

LD 

CHLJ . A 

wert bei CPTZ5 abspeichern 
;-> evtl. Programmzerstörung 

Bas icprogr amm vom 

I/O Port übernehmen C30YINP) 

366A 

2AA440 

LD 

HL. C40A4H) 

:HL * Startadresse des Basic- 

3660 

2B 

DEC 

HL 

: Programms - 1 

366E 

0603 

LD 

B.03H 

: Zäh l er - 3 

3670 

E5 

PUSH 

HL - 

[Adresse retten 

3671 

260F 

LD 

H . OFH 

:Port B anwählen 

3673 

C0BB3R 

CALL 

3ABBH 

;und Wert holen 

3676 

CB57 

BIT 

02H.A 

: A . 2 = 0 7 

3678 

28F9 

3R 

Z.3673H 

:3a: Warten bis A.2 = 1 

367R 

CDBB3A 

CALL 

3ABBH 

[nächsten wert holen 

367D 

CB57 

BIT 

02H.A 

: A . 2 * 1 7 

367F 

20F9 

3R 

NZ.367AH 

:3a: Warten bis A.2 wieder 0 

3681 

260E 

LD 

H .OEH 

[Port A anwählen 

3683 

C0BB3R 

CALL 

3ABBH 

.-und Wert holen 

3686 

El 

POP 

HL 

[Adresse zurück 

3687 

77 

LD 

CHL) . A 

:und Wert abspeichern 

3638 

B7 

OR 

A 

[Wert «07 

3689 

23 

INC 

HL 

[Adresse +1 

363A 

20E2 

3R 

NZ.366EH 

[Nein: Zähler auf 3 und nächs 
[Zeichen holen 

368C 

1 0E2 

D3NZ 

3670H 

:3a: 3 mal 0 hinterei nander 
[Nein: nächstes Zeichen holen 

368E 

C9 

RET 


:3a: Programmende erreicht 

Basicprogramm zum 

I/O-Port ausgeben C30Y0UT) 


368F 

2AA440 

LD 

HL . C40A4H) 

:HL * Startadresse des Basic- 

3692 

2B 

DEC 

HL 

:programms - l 

3693 

ED5BF940 

LD 

DE.C40F9H) 

:DE = Endadresse des Basic- 
: Programms 

3697 

7E 

LD 

A. CHL) 

: A = nächstes Zeichen 

3698 

E5 

PUSH 

HL 

[Adresse retten 

3699 

6F 

LD 

L.A 

:L * Zeichen 

369R 

260E 

LD 

H.OEH 

[Port A anwählen 

369C 

CDB23A 

CALL 

3AB2H 

:und Zeichen ausgeben 

369F 

24 

INC 

H 

:Port B anwählen 

36A0 

3E04 

LD 

A.04H 

: A . 2 = 1 setzen 

36A2 

CDB23A 

CALL 

3AB2H 

:A ausgeben 

36A5 

060A 

LD 

B.OAH 

: Verzögerungsschlei fe 

36A7 

10FE 

03NZ 

36A7H 




36A9 AF 
36RA CDB23A 
36AD El 
36AE 23 
36AF DF 
36B0 20E5 
36B2 C9 


XOR A 

CALL 3AB2H 

POP HL 

INC HL 

RST 18H 

JR NZ.3697H 

RET 


:R.2 * 0 setzen 
:A ausgeben 
[Adresse zurück 
Adresse +1 

: Programmende erreicht ? 
:Nein: nächstes Zeichen 
:3a: Fertig 


: JOYOUT 

36B3 E5 
36B4 2607 
36B6 CDBB3A 
36B9 E63F 
36BB F6C0 
36BD CDB23A 

36C0 CD8F36 
36C3 El 
36C4 C9 

: JOYINP 


PUSH HL 

LD H.07H 

CRLL 3RBBH 

RND 3FH 

OR OCOH 

CRLL 3AB2H 

CRLL 368FH 

POP HL 

RET 


: PTZ retten 

:Wert vom PSG-Register 7 
[holen 

[Bits 6 und 7 ausblenden 
:und beide setzen 
[Port R und B zur Ausgabe 
: vorbereiten 
[Basicprogramm ausgeben 
:PTZ zurück 


36C5 3E07 
36C7 D3F8 
36C9 3E3F 
36CB D3F9 
36CD CD6R36 
3600 C3772C 


LO R.07H 

OUT COF8H3.A 

LO R . 3FH 

OUT COF9H3.A 

CRLL 366RH 

3P 2C77H 


[Register 7 des PSGs 
:anwählen 

:und Port R und B zur Eingabe 
: vorberei ten 

[Basicprogramm übernehmen 
;und alle Zeiger neu setzen 


: SWRP 


3603 CD0D26 


3606 05 

3607 3AAF40 
36DR F5 
360B CF 
36DC 2C 
3600 CD0D26 

w 36E0 CI 

36E1 3RRF40 
36E4 B8 
36E5 C24A1E 
36E8 E3 

36E9 4E 
36ER IR 
?6E3 — 

36EC 7o 
36E0 12 
36EE 23 
I6EF 13 
36F0 10F7 
36F2 El 


CRLL 

PUSH 

LD 

PUSH 

RST 

DE FB 

CRLL 

POP 

LD 

CP 

JP 

EX 

LO 

LO 


lD 

INC 

INC 

OJNZ 


260DH 


DE 

R. C40AFH3 

RF 

08H 


[Adresse der 1. Variablen 

[ermitteln 

:und retten 

[VT der l. Variablen 

: retten 

.-Jetzt muß ein Komma folgen 


260DH 

BC 

R. C40RFH) 
B 

NZ. 1E4RH 
(SP) .HL 

C. CHL3 
A . ( DE 3 

chl; .a 
A.C 

( OE 3 .A 

HL 

OE 

36E3H 


[Adresse der 2. Variablen 
[ermitteln 

:VT der 1. Variablen zurück 
:VT der 2. Variablen holen 
[Beide gleichen Typs ’ 

[Nein: FC-Error 

:3a: PTZ retten. Adresse der 

sl. Variablen zurück 

[Wert von der ersten 

:und zweiten Variablen holen 

:und vertauscht wieder 

: abspeichern 

[Beide Zeiger erhöhen 

:VT Bytes über- --gen 
;PTZ zurücK 


SOUND Cn) 


36F4 

36F5 

36F6 

36F9 

36FA 

36FB 

36FC 

36F0 

36FF 

3702 

3703 

3704 


CD1C2B 

F5 


FE 1 0 
024A1E 


3707 C3723F 


RST 08H 

DEFB ’f 

CALL 2B1CH 

PUSH AF 

RST 08H 

DEFB '3' 

POP AF 

CP 10H 

3P NC.1E4AH 

PUSH HL 

LD H.A 

CALL 3ABBH 


.■Klammer auf ° 

:Wert nach A holen 
: Wer t retten 
;Klammer zu ? 

:Wert zurück 
: Wert > 15 ? 

:3a: FC-Error 
; PTZ retten 
:H * Wert 

:Wert des gewünschten 

: PSG-Registers holen 

:und als INT in X abspeichern 


SCALE als Funktion 


370A 3A1443 
370D E5 
370E C3723F 


LD A.C4314H) 

PUSH HL 

JP 3F72H 


A = aktuelle Scale-Wert 
: PTZ retten 

als INT in X abspeichern 


Unbenutzte Farcode-Anpassungs t abe l len 


37 i i 10 

3712 OD 

3713 OE 

3714 04 

3715 06 

3716 03 

3717 01 

3718 02 

3719 05 
37 1A 07 
37 1B 08 
37 IC 09 
37 ID OA 
371E OB 
37 1F OC 

3720 OF 


276 



3721 10 

3722 0D 

3723 06 

3724 04 

3725 OF 

3726 03 

3727 09 

3728 02 

3729 01 
372A 05 
372B 07 
372C 08 
372D OA 
372E OB 
372F OC 

3730 OE 

3731 10 

3732 05 

3733 02 

3734 04 

3735 OE 

3736 09 

3737 01 

3738 0 A 

3739 07 
373A 06 
373B 00 
373C 03 
3730 08 
373E OB 
373F OC 

3740 OF 


: Unbenutzter ROM-Bereich 


3741 FF 

3742 FF 

3743 FF 

3744 FF 

3745 FF 

3746 FF 

3747 FF 

3748 FF 

3749 FF 
374A FF 
3740 FF 
374C FF 
3740 FF 


RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 


374E FF 
374F FF 

3750 FF 

3751 FF 

3752 FF 

3753 FF 

3754 FF 

3755 FF 

3756 FF 

3757 FF 

3758 FF 

3759 FF 

3759 FF 
375B FF 
375C FF 
375D FF 
375E FF 
375F FF 

3760 FF 

3761 FF 

3762 FF 

3763 FF 

3764 FF 

3765 FF 

3766 FF 

3767 FF 
3763 FF 
3769 FF 

3769 FF 
3763 FF 
376C FF 
376D FF 
376E FF 
376F FF 

3770 FF 

3771 FF 

3772 FF 

3773 FF 

3774 FF 

3775 FF 

3776 FF 

3777 FF 

3778 FF 

3779 FF 
3779 FF 
377B FF 
377C FF 
377D FF 
377E FF 
377F FF 


RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 39H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
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3780 FF 

3781 FF 

3782 FF 

3783 FF 

3784 FF 

3785 FF 

3786 FF 

3787 FF 

3788 FF 

3789 FF 

3789 FF 
3788 FF 
378C FF 
378D FF 
378E FF 
378F FF 

3790 FF 

3791 FF 

3792 FF 

3793 FF 

3794 FF 

3795 FF 

3796 FF 

3797 FF 

3798 FF 

3799 FF 
3799 FF 
3798 FF 
379C FF 
379D FF 
379E FF 
379F FF 

3790 FF 

3791 FF 

3792 FF 

3793 FF 

3794 FF 

3795 FF 

3796 FF 

3797 FF 

3798 FF 

/ 3799 FF 

3799 FF 
379B FF 
379C FF 
379D FF 
379E FF 
379F FF 
37B0 FF 


RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H. 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 39H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 


_ 
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37B 1 FF 
37B2 FF 
37B3 FF 
3734 FF 
37B5 FF 
37B6 FF 
37B7 FF 
37B8 FF 
37B9 FF 
37BA FF 
37BB FF 
37BC FF 
37BD FF 
37BE FF 
37BF FF 
37C0 FF 
37C 1 FF 
37C2 FF 
37C3 FF 
37C4 FF 
37C5 FF 
37C6 FF 
37C7 FF 
37C8 FF 
37C9 FF 
37CA FF 


RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 
RST 38H 


Ausgabe eines Textes auf den Bildschirm (unbenutzt) 
I : HL - Startadresse eines Textes 


37CB 05 
37CC 111040 
37CF 1804 


PUSH DE ; OE retten 

LD OE . 401 OH :DE - Bildschirm DCB 

3R 37D5H weiter bei 37D5H 


Ausgabe eines Textes auf den Drucker (unbenutzt) 

Das Ende des Textes mu0 durch 03H bzw. OOH markiert werden. 
I: HL = Startadresse eines Textes 


3701 D5 
37D2 112540 
37D5 E5 
37D6 7E 
37D7 FE03 
3709 2809 
37DB C01B00 
370E 7E 
370F FEOD 
37EI 23 
?7F2 20F2 



PUSH DE 

LD DE.4025H 

PUSH HL 

LD A.(HL) 

CP 03H 

DR Z.37E4H 

CALL 001BH 

LD A.(HL) 

CP OOH 

INC HL 

DR NZ.37D6H 

’CP HL 

POP DE 

RET 


DE retten 
: OE * Drucker DCB 
HL retten 
Zeichen holen 
Ist es 03H ? 

Da: Fertig 

Nein: Zeichen ausgeben 
War das ausgegebene Zeichen 
gleich OOH *> 

Zeiger +1 

Nein: Nächstes Zeichen ausgeben 

Da: HL zurück 
DE zurück 





( unbenutzt ) 


Umwandlung des Binärwertes in DE in vier HEX-Ziffern 
(Umkehrung des &H-Befehls) 

I s DE = Auszugebender Binarwert 

HL - Zeiger auf Speicherplatz in dem die vier HEX-Ziffern 
abgelegt werden sollen 


37E7 

7A 

LD 

A.D 

; A » MSB 

37E8 

CDEC37 

CALL 

37ECH 

;MSB umwände ln 

37EB 

7B 

LD 

A.E 

: A - LSB 

37EC 

F5 

PUSH 

AF 

:Bi ts 0-3 retten 

37ED 

OF 

RRCA 


: Obere vier Bits nach unten 

37EE 

OF 

RRCA 


:(Bits 0-3) schieben 

37EF 

OF 

RRCA 



37F0 

OF 

RRCA 



37F 1 

CDF537 

CALL 

37F5H 

; HEX-Zi f f er für Bits 0-3 ausgeben 

37F4 

Fl 

POP 

AF 

:Bits 0-3 zurück 

37F5 

E60F 

AND 

OFH 

:Bits 0-3 maskieren 

37F7 

C690 

ADD 

A.90H 

.•Wert der Bits 0-3 ( 00H - OFH) 

37F9 

27 

DAA 


: in ASCI I-Zeichen (HEX-Ziffer) 

37FA 

CE40 

ADC 

A.40H 

: C ' 0 * - ‘9' und ’A' - *F') 

37FC 

27 

DAA 


: umwandeln 

37 FD 

77 

LD 

(HL) .A 

:Zeichen ablegen 

37FE 

23 

INC 

HL 

: Zeiger +1 

37FF 

C9 

RET 


:Nächstes Zeichen 

Programmierungstabei len für 

den CRTC 


Der erste Tabellenwert 

wird 

ins Register 15. 

der letzte ins Register 0 


: des CRTCs geschrieben 

: Diese Tabellen werden im RAM ab 42F0H abgelegt 
; (siehe Anhang A im Handbuch) 

: LQR-Modus . PAL-Fernsehnorm 

3800 01 

3801 00 

3802 00 

3803 04 

3804 07 

3805 C4 

3806 07 

3807 A0 

3808 1F 

3809 19 
380A 00 
380B 26 
380C 96 
380D 34 
380E 28 
380F 46 



FGR-rlodus . PAL-Fernsehnorm 


3810 00 

3811 00 

3812 00 

3813 08 

3814 00 

3815 20 

3816 01 

3817 20 

3818 7a 

3819 66 
381A 1F 
38 1B 7E 
38 IC 96 
38 1 D 34 
38 IE 28 
38 1F 46 

Die nächsten drei Werte bestimmen die Geschwindigkeit mit der Zeichen auf 
Cassette geschrieben bzw. davon gelesen werden. Diese drei Werte werden in w 

den Speicherstellen 4310H. 4311H und 4312H abgelegt. 

Csiehe 01FAH ff und 021FH ff) 

3820 46 

3821 48 

3822 69 

CRTC Programmierungstabei l e für die amerikanische NTSC-Farbnorm . 

Damit das Colour-Genie ein NTSC-Farbs ignal ausgibt müssen auch diverse 
Schaltungsänderungen vorgenommen werden. Eine Aufführung dieser Tabelle 
ist also für die europäischen Benutzer wertlos. 

LGR-Modus. NTSC-Farbnorm 

3823 01 

3824 00 

3825 00 

3826 04 

3827 07 

3828 C4 

3829 07 W 

382A AO 

382B 1B 
382C 19 
382D 06 
382E 1F 
382F 34 
3330 2E 
2831 29 
2332 28 





: FGR-Modua. NTSC-Far bnor» 

3833 00 

3834 00 

3835 00 

3836 08 

3837 00 

3838 20 

3839 01 
383A 20 
383B 6E 
383C 66 
3830 08 
383E 7F 
383F 34 

3840 2E 

3841 28 

3842 38 

: Die nächsten drei Bytes bestimmen die Geschwindigkeit von Cassetten- 
: Operationen bei der amerikanischen Ausgabe des Col our-Genies 

3843 4C 

3844 51 

3845 71 


: FCLS ausführen (ohne Parameter) 


3846 3E00 
3848 1808 


LD A.OOH :A • Farbcode (0) 

3R 3852H :FCLS aus führen 


: Fortsetzung der FCLS-Rout ine von 3C87H (mit Parameter) 


384A C4C23F 
3840 FE04 
384F D24A1E 


CALL NZ.3FC2H :Wert holen, falls angegeben 

CP 04H : Wert > 4 ? (A * Wert - 1) 

3P NC.1E4AH :3a: FC-Error 


UPRO für FCLS C AF . BC . OE . HL ) 
FCLS A ausführen 
I: A * Farbcode 


3852 4F 

3853 0603 

3855 07 

3856 07 

3857 Bl 

3858 10FB 
385A 4F 
385B E5 


LD C ,A 

LO B.03H 

RLCA 
RLCA 

OR C 

03NZ 3855H 

LD C.A 

PUSH HL 


: Farbwert nach C 
:Die oberen 3 Bit-Paare 
;von A auf den angegebenen 
;Farbwert setzen 

;Nächstes Bit-Paar 
: Wert nach C retten 
: PTZ retten 


!83 



385C 2AA440 
385F 110148 

3862 DF 

3863 2809 


3865 210048 

3868 71 

3869 01FF0F 
386C EDBO 
386E El 
386F C9 


LD HL.C40A4H) 

LD DE.4801H 

RST 18H 

3R Z.386EH 


LD HL.4800H 

LD CHLD.C 

LD BC.OFFFH 

LDIR 

POP HL 

RET 


: HL * Startadresse des Basic- 
; Programms 

:DE * Startadresse des Speichers 
: für hochauflösende Grafik 
;Beide Adresse identisch ? 

:3a: Hochauflösende Grafik nicht 
; erlaubt. CMOO SEL wurde wahrend 
:des Einschaltens f est gehal ten . 
;Siehe S.20 im Handbuch) 

: HL * Startadresse des Grafik- 

Speichers 

:Byte ablegen 

:BC * Zähler für 4095 Bytes 
: FCLS durchführen 
: PTZ zurück 


CRTC auf LGR- oder FGR-Modus programmieren 


3870 3R1C43 

3873 E5 

3874 21F042 
3877 CB6F 

3879 2803 
387B 210043 
387E D3FF 

3880 321C43 
3883 0610 
3885 OEFR 

3887 05 

3888 ED4 1 
388R 04 
388B OC 
388C EDR3 

388E 20F5 

3890 El 

3891 C9 


LD A.C431CH) 

PUSH HL 

LD HL.42F0H 

BIT 05H.A 

3R Z.387EH 

LD HL.4300H 

OUT (OFFH).A 

LD C 43 ICH ) . A 

LD B.10H 

LD C.OFAH 

DEC B 

OUT C C ) . B 

INC B 

INC C 

OUTI 

3R NZ.3885H 

POP HL 

RET 


:A * Letzter Wert des Ports 255 
: PTZ retten 

: HL ■ Tabellenstart für LGR-Modus 
; Bi t 5 gesetzt ? 

:Nein: LGR-Modus programmieren 

:3a: FGR-Modus progr ammieren 

;Portwert zurückschreiben 

:und abspeichern 

: 16 Werte programmieren 

:C = Portadresse zur Registerwahl 

: Zähler -1 

;Register anwählen 

: Zäh l er +1 

:C = Portadresse zur Wertübergabe 
:Byte von CHL) nach Port C 
: übergeben 
:Nächstes Byte 
: PTZ zurück 


CRTC initialisieren CNBGRD. LGR) und Text ab HL ausgeben 
I: HL * Startadresse des auszugebenden Textes 


3892 09 

3893 3A1C43 
3896 E6DB 

3898 CD7338 
389B D9 
389C CDA728 
389F C9 


EXX 

LD A.C431CH) 

AND ODBH 

CALL 3873H 

EXX 

CALL 28A7H 

RET 


: Register retten 
:A = letzter Portwert 
: Bi ts 2 und 5 löschen 
: CNBGRD und LGR) 

:CRTC neu programmieren 
:Register zurück 
: Tex t ab CHL) ausgeben 



UPRO für CONT C siehe 1DF2H ) 

CRTC auf letzten Wert pr ogrammieren und letzte ZN als aktuelle ZN abspeichern 




38A0 

38A1 

38A4 

38A5 

38A8 


EXX 

CALL 

EXX 

LD 

RET 


: Register retten 
3870H j CRTC programmiren 

:Register zurück 

C40A2H5.HL :aktuelle ZN erneuern 


: FGR 

38R9 3R1C43 
38AC CBEF 
38AE 18C3 


LD 

SET 

DR 


A. C431CHJ 

05H.A 

3973H 


:A * Letzter Portwert 
; B i t 5 für FGR setzen 
:und CRTC programmieren 


: LGR 


38B0 

38B3 

38B5 


3A1C43 
CBAF 
1 8BC 


LD 

RES 

DR 


A. C431CH) 

05H.A 

3873H 


A * Letzter Portwert 
; Bi t 5 für LGR löschen 
;und CRTC programmieren 


: Alte BGRD-Rout ine Cwurde jetzt durch BGRD n ab 3FE4H ersetzt) 


38B7 0604 LD B . 04H 

38B9 1802 DR 38BDH 


: NBGRD 


38BB 0600 
38BD 3A1C43 
38C0 E6FB 
38C2 BO 
38C3 321C43 
38C6 03FF 
38C8 C9 


LD 

LD 

'AND 

OR 

LD 

OUT 

RET 


B.OOH 
A, C431CH) 
OFBH 
B 

C431CH) . A 
COFFH) .A 


;BGRD-Wert auf 0 setzen 
:Letzten Portwert holen 
:BGRD-Bits löschen 
:Neuen Wert einmaskieren 
: abspeichern 

;und neuen BGRD erzeugen 


: COLOUR 


38C9 CDC23F 
38CC FE 10 
^ 38CE D24A1E 
38D1 322340 
3804 C9 


CALL 3FC2H 

CP 10H 

DP NC.1E4AH 

LD C 4023H ) . A 

RET 


:Wert nach A holen 
; Wert > 15 ? 

; Da : FC-Error 

:Nein: Wert abspeichern 


: FCOLOUR 

; Das ' FCOLOUR ’ -Token wird mit 3 Bytes abgespeichert 1 C FFH , 81H. 52H) 

: Aufgrund eines Fehlers im alten RON wurde nur das Keyword ’FCOLOU' erkannt. 
: das fehlende ’R' musste extra abgesDeicher t werden. 


:3C5 
3S0ö zZ 
33C7 DDC22F 
33DA FE04 
23CC 20 FO 



RS“ D8H 

DE F3 •=• 

DAL- 3 F-D ZH 

D ? 04H 

DR -IC.38CSH 

-D J313H; .A 


: Folgt em * R ' ~ 

:wert nach A holen 
:wert > 3 ? 

:Nein: wert l 


iDsoeicnen 



UPRO für die Zwischencodeerzeugung Csiehe IC15H) 

Beim Erreichen des Endes der normalen Keywordtabel le. 
Colour-Keywords abf ragen 
I: ft * Aktuelles Tabellenzeichen 
B = Tokenzähler 
C = ftktuelles Textzeichen 
DE = Textzeiger 
HL * Tabellenzeiger 


38E2 E67P 
38E4 CO 
38E5 EB 
38E6 U2F39 

38E9 C5 
38Eft 067F 
38EC 7E 
38ED FE61 
38EF 3806 
38F 1 FE7B 
38F3 3002 
38F5 E65F 
38F7 4E 
38F8 EB 
38F9 23 
38Fft B6 
39FB F2F938 

38FE 04 
38FF 7E 
3900 E67F 
3902 2829 

3904 B9 

3905 20F2 

3907 EB 

3908 E5 

3909 13 
390ft lft 
390B B7 
390C Fft 1 E39 

390F 4F 

3910 23 

3911 7E 

3912 FE6 1 
3914 3802 
3916 E65F 

3918 B9 

3919 28EE 
39 1B El 
39 IC 1 8D9 


ftND 7 FH 

RET NZ 

EX DE. HL 

LD DE.392FH 

PUSH BC 

LD B . 7FH 

LD A.CHL) 

CP 6 1H 

3R C.38F7H 

CP 7BH 

3R NC.38F7H 

ftND 5FH 

LD C.CHL) 

EX DE. HL 

INC HL 

OR CHL) 

3P P.38F9H 

INC B 

LD ft. (HL) 

ftND 7FH 

3R Z.392DH 

CP C 

3R NZ.38F9H 

EX OE. HL 

PUSH HL 

INC OE 

LD ft. (DE) 

OR ft 

DP M.391EH 

LD C.ft 

INC HL 

LD ft. CHL) 

CP 6 1 H 

3R C.3918H 

ftND 5FH 

CP C 

3R Z.3909H 

POP HL 

3° 38F7H 


:Tabel l enende erreicht ? 

:Nein: Zurück 
: HL = Textzeiger 

; DE * Tabellenzeiger auf Colour- 
: Keyword-Tabe l le 
:Tokenzähler retten 
:Neuen Tokenzähler setzen 
:A - Aktuelles Textzeichen 
: Ist A Kleinbuchstabe ? 

.-Nein: ok 
sKleinbuchstabe ? 

: Nein : ok 

:3a: In Großbuchstaben umwandeln 

:C = ftktuelles Textzeichen 

: HL * Tabellenzeiger 

:Tabel lenzeiger +1 

rNächstes Keyword erreicht ? 

:Nein: Zeiger bis zum nächsten 

: Keyword erhöhen 

;Tokenzähler +1 

:A = Tabellenzeichen 

: Tabel l enende erreicht ? 

;3a: Rücksprung 

:Nein: Tabellenzeichen mit Text- 
:zeichen vergleichen 
:Nächstes Keyword probieren wenn 
: ungleich 

; DE » Tabellenzeiger 
: Textzeiger retten 
:Tabel lenzeiger +1 
jnächstes Tabellenzeichen holen 
:nächstes Keyword erreicht ? 

:3a: Alle Zeichen stimmten über- 
ein 

:Nein: C = Tabellenzeichen 
:Textzeiger +1 
.•Textzeichen holen 
:in Großschrift umwandeln 


:und mit Tabellenzeichen ver- 
gleichen 

:Nächstes Zeichen wenn indentisch 
:ftlten Textzeiger zurück 
: und nächstes Keyword vergleichen 
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Keyword gefunden 


39 1 E Fl 
39 1 F Fl 

3920 Fl 

3921 Dl 

3922 01 

3923 E3 

3924 36FF 
3926 78 


3927 

3928 

3929 
392A 


42 

4B 

01 


POP 

POP 

POP 

POP 

POP 

EX 

LO 

LD 

LD 

LO 

POP 

3P 


AF 

AF 

AF 

DE 

OE 


(SP) .HL 


(HL) . OFFH 


B. D 

C. E - 
OE 

3057H 


:Textzeiger 

;alten Tokenzähler 

: RET- Adr nach 1C18H 

••und RET-Adr nach 1C3DH löschen 

: Zäh l er der Zeichen pro Zeile 

: zurück 

: Textzeiger retten. Bufferzeiger 
:zurück 

; FFH als Col our-Keyword Kennung 
:im Buffer ablegen 
:A = Token des gefundenen 
: Keywords 
: BC * OE 

; Textzeiger zurück nach DE 
:und Token ablegen 


Ende der Keywordtabel le erreicht, kein Keyword erkannt 


3920 CI 
392E Fl 
392F C9 


POP BC ;alten Zähler zurück 

POP AF : RET-Adr nach 1C18H löschen 

RET ;und RET nach 1C3DH ausführen 


Tabelle der Colour-Keywords in der Reihenfolge ihrer Tokenwerte 

Zur Trennung zwischen den Keywords ist jeweils das 7. Bit des ersten Zeichens 

auf *1* gesetzt 


3930 C3 4F 4C 4F 55 52 

3936 C6 43 4F 4C 4F 55 

393C CB 45 59 50 41 44 

3942 CA 4F 59 

3945 DO 4C 4F 54 

3949 C6 47 52 

394C CC 47 52 

394F Cd 43 4C 53 

3953 00 4C 41 59 

3957 C3 49 52 43 4C 45 

3950 03 43 41 4C 45 

3962 03 48 41 50 45 

3967 CE 53 48 41 50 45 

3960 08 53 48 41 50 45 

3973 DO 41 49 4E 54 

3978 C3 50 4F 49 4£ 54 

397E CE 50 4C 4F 54 

3983 03 4F 55 4E 44 

3988 C3 48 41 52 

398C 02 45 4E 55 40 

3991 03 57 4t 50 

3995 C6 4B 45 59 

3999 C3 41 4C 4C 

3990 06 45 52 49 46 59 

39A3 C2 47 52 44 

39A7 CE 42 47 32 44 

39AC 90 


COLOUR 

FCOLOU (das ’R' fehlt ! ! ) 

KEYPAD 

30Y 

PLOT 

FGR 

LGR 

FCLS ‘ 

PLAY 

CIRCLE 

SCALE 

SHAPE 

NSHAPE 

XSHAPE 

PAINT 

C PO INT 

NPLOT 

SOUNO 

CHAR 

RENUM 

SWAP 

FKEY 

CALL 

YERIFY 

3GRD 

nBGRD 

Ende der Keywordtabel l e 



UPRO f ür LIST (siehe 2BA9H) 

Start der Keywordtabel le fest legen 


39AD FE 80 

CP 

80H 

: Tokenwert » FFH ? CFFH - 7FH ) 

39AF 215016 

LO 

HL. 1650H 

: HL * Startadresse der Basic 
; Keywordt abe l l e 

39B2 CO 

RET 

NZ 

,-Nein: HL ist gesuchte Adresse 

39B3 El 

POP 

HL 

:RET-Adr nach HL 

39B4 E3 

EX 

CSP) .HL 

: RET-Adr zurück. 

: HL * Zeilenpointer 

39B5 TE 

LO 

A. CHLI 

:A = nächstes Zeichen 

39B6 D67F 

SUB 

7FH 

: Ist es ein Token 7 

39B8 5F 

LD 

E.R 

:E « Zeichen - 7FH 

39B9 23 

INC 

HL 

; Zeiger +1 

39BA E3 

EX 

CSP) .HL 

: Zeiger retten. RET-Adr nach HL 

39BB E5 

PUSH 

HL 

: RET -Adr zurück ins Stack 

39BC 2A8C43 

LD 

HL. C438CH) 

:HL » Startadresse der Colour 
: Keywordtabel le 

39BF C9 

RET 



UPRO für die 

Programmschleife 

Csiehe 1D67HJ 


Startadresse 

der Sprungadressentabelle fest legen 

39C0 FE7F 

CP 

7FH 

:Colour-Token gefunden ^ 

39C2 2808 

3R 

Z.39CCH 

:3a: weiter bei 39CCH 

39C4 FE3C 

CP 

3CH 

:Befehl gefunden ? 

39C6 02E72A 

3P 

NC . 2AE7H 

:Nein: weiter bei 2AE7H 

39C9 C36A1D 

3P 

1D6AH 

:3a: Befehlsroutine ausrühren 

Col our-Token 

gefunden 



39CC 23 

INC 

HL 

: PTZ +1 

39CD 7E 

LD 

A. CHL) 

: E igent l iches Token holen 

39CE 0680 

SUB 

80H 

:80H abziehen 

3900 07 

RLCA 


:*2 = Tabellenoffset 

3901 4F 

LD 

C.A 

:C = CTokenwer t - 80H) * 2 

3902 0600 

LD 

B.OOH 

: B = 0 

39D4 EB 

EX 

DE. HL 

: DE * PTZ 

3905 2A8E43 

LD 

HL. C438EHD 

: HL * Startadresse der Colour- 
:Sprungadressentabel le 

39D8 C3721D 

3P 

1D72H 

:Adresse holen und Routine 
: aus führen 



Sprungadressentabei l e der Colour-Befehle 


39DB C9 38 
39DD 05 38 
390F 97 19 
39E1 52 36 
39E3 CI 38 
39E5 89 38 
39E7 80 38 
39E9 83 3C 
39E8 61 30 
39ED F8 38 
39EF Fl 38 
39F 1 DD 3C 
39F3 08 3C 
39F5 03 3C 
39F7 38 3E 
39F9 97 19 
39FB BE 3B 
39FD 95 3F 
39FF 88 3F 
3801 B6 31 
3803 03 36 
3805 66 34 
3807 58 35 
3809 33 3F 
380B E4 3F 
3800 BB 38 


: COLOUR 38C9H 

: FCOLOUR 38D5H 

: KEYP8D 1S97H C« SN-Error 

:3CY 3652H 

; PLOT 3BC1H 

: FGR 3889H 

: LGR 38B0H 

: FCLS 3C83H 

; PL8Y 306 1H 

:CIRCLE 38F8H 

: SC8LE 38F1H 

: SH8PE 3C0DH 

: NSH8PE 3CD8H 

: XSH8PE 3CD3H 

: PRINT 3E38H 

: CPOINT 1997H C» SN-Error 

: NPLOT 3BBEH 

: SOUND 3F95H 

: CH8R 3F88H 

: RENUM 31B6H 

: SW8P 36D3H 

: FKEY 3466H 

: C8LL 3558H 

jVERIFY 3F33H 

: BGRD 3FE4H 

: NBGRD 388BH 


! D 


KEYP8D 


380F 7E 

3810 23 

3811 E5 

3812 FE3 1 
3814 C80838 
3817 FE32 
3819 C8DC38 
381C C3C338 


INC HL 

PUSH HL 

CP 31H 

3P 2.38D8H 

CP 32H 

3P 2.380CH 

3P 38C3H 


Nächstes Zeichen holen 
:PTZ +1 
: PTZ retten 
: ' 1 ' gefunden ? 

3a: weiter bei 38D8H 
: ’Z" gefunden ? 

3a: weiter bei 38DCH 
Nein: KEYP8D CnJ "> 



3A1F 7E 
3A20 FE23 
3A22 2826 
3A24 1604 
3A26 FE32 
3A28 2307 
3A2A CB3A 
3A2C FE31 
3A2E C29719 
3A31 07 
3A32 FE59 
3A34 2805 
3A36 15 
3A37 FE58 
3A39 20F3 
3A3B 23 
3A3C E5 
3A3D CD5E3A 
3A40 E63F 
3A42 3C 
3A43 1816 


LD A.CHL) 

CP 28H 

3R Z.3A4AH 

LD 0.04H 

CP 32H 

3R Z.3A31H 

SRL D 

CP 31H 

3P NZ , 1 997H 

RST 10H 

CP 59H 

3R Z.3R3BH 

DEC D 

CP 58H- 

3R NZ.3R2EH 

INC HL 

PUSH HL 

CRLL 3R5EH 

RND 3FH 

INC R 

3R 3R5BH 


:R = Nächstes Zeichen 
:Kl ammer auf ' C * ? 

:3a: weiter bei 3R4RH 
;D • 4 

: ' 2 ' gef unden 

;3a: weiter bei 3R31H 

: Ne in : D » 2 C4/2) 

; ' 1 ' gefunden ? 

: Nei n : SN-Error 

:3a: Nächstes Zeichen holen 

; * Y ’ gef unden ° 

;3a: weiter bei 3A3BH 
: Ne i n : D - 1 
: ’X' gefunden ? 

: Nein : SN-Error 

; PTZ +i 

: PTZ retten 

: 3oyst ichwer t holen 

: Wer t auf 0-63 normieren 

;+l ergibt Wert von 1 bis 64 

:Wert nach X als INT übergeben 


Unbenutzt 


3A45 18F4 
3R47 00 
3A48 00 
3A49 00 


3R 

NOP 

NOP 

NOP 


3A3BH 


: 3oyst ickwer t holen 


30Y Cn3 


3R4R 23 
3R48 CD1C2B 
3A4E FE 08 
3A50 D24A1E 
3A53 57 
3A54 CF 
3A55 29 
3A56 14 
3A57 E5 
3A58 CD5E3A 
3A5B C3723F 


INC HL 

CRLL 2B1CH 

CP 08H 

3P NC.1E4RH 

LD D.R 

RST 08H 

DEFB ')* 

INC D 

PUSH HL 

CRLL 3R5EH 

3P 3F72H 


: PTZ +1 
: Wert holen 
: Wer t > 7 ? 

:3a: FC-Error 
:Nein: wert nach D 
;Klammer geschlossen 

;D +1 ( Wertebereich von 1 bis 83 

: PTZ retten 

: 3oyst ickwert holen 

:und nach X als INT übergeben 
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Joystickwert ermitteln 

1:0« Parameter für anzusprechenden Joystick: (zwischen 1 und 81 

D * 1: J0Y1X D * 2: J0Y1Y D « 3: J0Y2X D ■ 4: J0Y2Y 
die restlichen werte C5 bis 8) sprechen das zweite Paar 
Joysticks an Cbzw. 4 andere Pnalogeingänge) 

0: P - Ermittelter Wert 


3P61 PF 
2P62 1E90 
3P64 B3 

3A65 6F 
3P66 260E 
3P68 CDB33P 
3P6B 24 
3P6C CDBB3P 
3P6F D5 
3P70 17 
3P71 15 
3P72 20FC 
3P74 Dl 
3P75 7D 
3P76 3803 

3P78 7B 
3P79 2F 
3P7P P5 
3P7B CB3B 
3P7D 30E5 

3P7F C9 


CPLL 3PP9H 

XOR P 

LD S.30H 

OR E 

LD L.P 

LD H.OEH 

CPLL 3PB3H 

INC H 

CPLL 3PBBH 

PUSH DE 

RLP 

DEC D 

3R NZ.3P70H 

POP DE 

LD P.L 

JR C.3P7BH 

LD P.E 

CPL 

PNO L 

SRL E 

JR NC.3P64H 

RET 


:Port P zur Pusgabe. Port B zur 
:Eingabe vorbereiten 
:P - 0 

: Das jeweils gesetzte Bit in E 
:auch in P setzen 
:L » P 

:Port P ansprechen 

:Wert in L nach Port P ausgeben 

:Port B ansprechen 

:Wert aus Port B nach P holen 

: Zähler CD) retten 

:Gewünschtes Bit nach CY schieben 
:Gewünschtes Bit in CY 
:Nein: Weiterschieben 
:Zähler zurück 

:Letzten ausgegebenen Wert nach P 
:War das gewünschte Bit = *1’ 

: Ja : weiter bei 3P7BH 

:Nein: P » Bitmaske 

:Maske invertieren 

:und mit L verknüpfen 

:Maske rechts schieben 

: CY* 1 ? (Maske 8 mal geschoben ?) 

:Nein: nächsten Durchgang 


: Plte KEYPPD-Rout ine (jetzt ab 3P0FH ) 


3P80 C3143F 
3P83 00 
3P84 C3183F 


JP 3F14H 

NOP 

JP 3F18H 


Früher: KEYPPDl 
Früher: KEYPP02 



Aktuelle KEYPAD-Rout ine 
I : D » FEH: KEYPAD 1 ansprechen 
D - F7H: KEYPA02 ansprechen 
0: A * Tastenwert 


3A87 CDA93A 

3A8A 1EE4 

3A8C 0603 
3A8E 6A 
3A8F 260E 
3A9 1 CDB33A 

3A94 24 
3A95 CDBB3A 
3A98 0E04 
3A9A 1F 
3A9B 3008 
3A9D IC 
3A9E 0D 
3A9F 20F9 
3AA1 CB02 
3AA3 1 0E3 

3AA5 1 63A 

3AA7 1A 
3AA8 C9 


CALL 3AA9H 

LD E.0E4H 

LD B.03H 

LD L.D 

LD H.OEH 

CALL 3AB3H 

INC H 

CALL 3ABBH 

LD C.04H 

RRA 

3R NC.3AA5H 

INC E 

DEC C 

3R NZ.3A9AH 

RLC D 

D3NZ 3A8EH 

LD D.3AH 

LD A.CDEJ 

RET 


: Por t A zur Ausgabe. Port B zur 

:Eingabe vorbereiten 

:E = LSB der Startadresse der 

; KEYPAO-T abe l le 

;3 Spalten prüfen 

;L = Keypad-Adresse 

:Port A ansprechen 

:und gewünschten Keypad 

; adressieren 

:Port B ansprechen 

:und Wert holen 

;4 Zeilen prüfen 

:nächstes Bit nach CY schieben 

jSprung wenn Taste gedrückt 

:Tabel lenof fset +1 

: Zei l enzahl er -i 

:Nächste Zeile prüfen 

:Nächste Spalte ansprechen 

: Wei ter bis alle 3 Spalten über 

iprüft wurden 

:D » MSB der Startadresse der 
: KEYPAD-Tabe l le 
: Wer t aus Tabelle holen 


Port A zur Ausgabe und Port B zur Eingabe vorbereiten 


3AA9 2607 
3AAB CDBB3A 
2AAE E63F 
3AB0 F640 


LD H.07H 

CALL 3ABBH 

AND 3FH 

OR 40H 


.•Register 7 des PSG ansprechen 

:Wert holen 

:Bits 6 und 7 löschen 

;Bit 6 auf *1' und Bit 7 auf '0 

: setzen 


Wert in A zum PSG-Register H übergeben 


3AB2 6F 
3AB3 0EF8 
3AB5 ED61 
3AB7 OC 
3AB8 ED69 
SABA C9 


LD L.A 

LD C.0F8H 

OUT CC).H 

INC C 

OUT CO.L 

RET 


Wert des PSG-Registers H holen 


2R6B OE -3 
Z^BD E361 
3ABF OC 
3AC0 ED79 
3AC2 C9 


_3 

CUT 

INC 

IN 

AET 


C . 0F3H 

• c : . h 
c 


:L «■ neuer Wert 

; C * Port für Registerwahl 

:Register H anwahlen 

:C * Port zur Werteübergabe 

.•Wert übergeben 


C = °cr*. 'ür Regist erwähl 
Regi s ter H anwah len 
C = Port zur Werteübergabe 
Wert holen 


A. CC) 



KEYPRD Cn5 


3RC3 El 
3RC4 2B 
3RC5 CF 
3RC6 28 
3RC7 CDC23F 
3RCR FE02 
3RCC D24R1E 
3RCF F5 
3RD0 CF 
3RD1 29 
3RD2 Fl 
3R03 E5 
3RD4 FEO 1 
3RD6 2804 


POP 

DEC 

BST 

OEFB 

CRLL 

CP 

DP 

PUSH 

RST 

DEFB 

POP 

PUSH 

CP 

3R 


3FC2H 

02H 

NC . 1E4RH 


01H 

Z.3RDCH 


: PTZ zurück 
: PTZ -1 

:Klammer auf ° 

: Ne i n : SN-Error 
:Wert -1 holen 
: Wer t > 2 ? 

:3a: FC-Error 
.•Nein: Wert retten 
;Klammer zu ? 

:Wert zurück 
: PTZ retten 

: Wer t = 2 ? (R * Wert - 15 
:3a: KEYPR02 aus führen 


HEYPRD1 


3RD8 16FE 
3RDR 1802 


LD D.OFEH :0 = Keypad 1 Rdr esse ’ 

3R 3RDEH : weiter bei 3RDEH 


KEYPRD2 


3RDC 16F7 
3R0E CD873R 
3RE 1 C3723F 


LD D.0F7H :0 « Keypad2- ' Rdresse ’ 

CRLL 3R87H :Keypadwert holen 

3P 3F72H : und nach X als INT übergeben 


KEYPRD-Tabel le 

Zur schnelleren Berechnung der Tastenwerte, werden diese über eine Tabelle 
ermittelt C3eweils 3 Spalten a 4 ZeilenD 


3RE4 03 
3RE5 06 
3RE6 09 
3RE7 OC 


3RE8 02 
3RE9 05 
3RER 08 
3REB OR 

3REC 01 
3RED 04 
3REE 07 
3REF OB 


3RF0 00 


:Keine Taste gedrückt 



SCALE 


3AF1 CD1C2B 

CALL 

2B ICH 

{Wert holen 

3AF4 321443 

LD 

C4314H) . A 

:und abspeichern 

3AF7 C9 • 

RET 



CIRCLE 




3RF8 CD1C2B 

CALL 

2B1CH 

:X-Koordinate holen 

3AFB F5 

PUSH 

AF 

:und retten 

3AFC CF 

RST 

08H 

{Danach muß * . ’ stehen 

3AFD 2C 

DEFB 



3AFE CD1C2B 

CALL 

2B1CH 

; Y-Koordinate holen 

3B01 F5 

PUSH 

AF 

:und retten 

3B02 CF 

RST 

08H 

:Oanach muß ’ . ’ stehen 

3B03 2C 

DEFB 



3B04 CD1C2B 

CALL 

2B ICH 

: Radi us holen 

3B07 Dl 

POP 

DE 

; Y-Koordinate zurück 

3B08 CI 

POP 

BC 

{X-Koordinate zurück 

3B09 4A 

LD 

C.D 

;B * X-, C = Y-Koordinate 

3B0A E5 

PUSH 

HL 

:PTZ retten 

3B0B 57 

LD 

D. A 

:Y-Abstand ■ Radius 

3B0C 1E00 

LD 

E.OOH 

:X-Abstand ■ 0 

3B0E 2680 

LD 

H.80H 

; H ■ Schrittweitenoffset 

Nächste acht 

Punkte plotten 



3810 FA523B 

3P 

M.3B52H 

{Fertig wenn Y-Abstand kleiner 
:als der X-Abstand ist 
; CKreis geschlossen) 

3B13 CD7A3B 

CALL 

3B7AH 

:4 Punkte plotten und X- und 
;Y-Abstände vertauschen 

3B16 CD7A3B 

CALL 

3B7AH 

:4 Punkte plotten und Abstände 
iwieder zurück 

3B19 CD5E3B 

CALL 

3B5EH 

{Abstände negieren 

3B1C C5 

PUSH 

BC 

{Register retten 

3B1D D5 

PUSH 

DE 


3B1E E5 

PUSH 

HL 


3B1F 2E80 

LD 

L . 80H 

:L. 7=1 (Dadurch ergibt sich 
:beim ersten ADD HL. HL ein 
{Überlauf nach H.O) 

3B21 63 

LD 

H.E 

{ H * X-Abstand 

3B22 0608 

LD 

B.08H 

{8 Bits verrechnen 

3B24 1E00 

LD 

E.OOH 

{E = 0. D = Y-Abstand 



Nächste Schrittweite für den Y-6bstand errechnen 


u 


3626 29 

600 

HL. HL 

nächstes Bit von H nach CY 
schieben 

3627 ED52 

SBC 

HL. DE 

HL * HL - DE - CY 

3629 3803 

3R 

C.3B2EH 

Sprung bei Unterlauf 

CDa E * 0 ist kann ein Unter 

nur erfolgen wenn H < D ist! 

3626 23 

INC 

HL 

HL +1 (entspricht L +1) 

362C 1801 

3R 

3B2FH 

Nächster Durchgang 

362E 19 

6DD 

HL. DE 

Subtraktion zurücknehmen 

3B2F 10F5 

D3NZ 

3B26H 

Nächster Durchgang 

3631 7D 

LD 

6 . L 

6 ■ L 

3B32 El 

POP 

HL 

Register zurück 

3633 Dl 

POP 

DE - 


3634 CI 

POP 

BC 


3B35 84 

6DD 

6 , H 

6*6+ Schrittweitenoffset 
CY - 1 falls 6 + H > 255 

3B36 67 

LD 

H . 6 

H = neuer Schrittweitenof fse 

3B37 76 

LD 

6 . D 

6 * Y-6bstand 

3838 2E00 

LD 

L , OOH 

L = 0 

3636 90 

SBC 

6 . L 

6 - Y-6bstand - CY 

3B3B 57 

LD 

D . 6 

D = neuer Y-6bstand 

3B3C IC 

INC 

E 

x-6bstand +1 

3830 76 

LD 

6 , D 

6 > Y-6bstand 

3B3E SB 

CP 

E 

:X-6bstand > Y-6bstand 

3B3F C3103B 

3P 

3B10H 

iweiter bei 3B10H 

PLOT B + E . C + 0 

3B42 C5 

PUSH 

BC 

Register retten 

3643 05 

PUSH 

OE 


3644 E5 

PUSH 

HL 


3645 76 

LD 

6 . E 

6 « x-6bstand 

3B46 80 

6DD 

6 , B 

+ Mittelpunktskoordinate 

3B47 6F 

LD 

L .6 

ergibt X-Koordinate 

3B48 76 

LD 

6 . D 

6 * Y-Rbstand 

3B49 81 

6DD 

6 , C 

+ Mittelpunktskoordinate 

3B46 67 

LD 

H , 6 

ergibt Y-Koordinate 

3B4B CD863B 

C6LL 

3B86H 

PLOT L . H 

3B4E El 

POP 

HL 

Register zurück 

3B4F Dl 

POP 

DE 

3B50 CI 
3651 C9 

POP 

RET 

BC 


CIRCLE beenden 

3B52 El 
3653 C9 

POP 

Q£T 

HL 

PTZ zurück 
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X-Rbstand negieren 


-E J 


3B54 7B LD 

3B55 ED44 NEG 

3B57 5F LD 

3B58 C9 RET 

Y-Rbatand negieren C D = -0 ) 

3B59 7R LD 

3B5R E044 NEG 

3B5C 57 L0 

3B5D C9 RET 


X- und Y-Rbatand negieren 


3B5E CD543B CRLL 
3B61 C0593B CRLL 
3B64 C9 RET 

PLOT B - E . C + 0 

3B65 CD543B CRLL 
3B68 CD423B CRLL 
3B6B C9 RET 

PLOT B ♦ E . C - D 

3B6C CD593B CRLL 
3B6F CD423B CRLL 
3B72 C9 RET 


X- und Y-Rbatand vertauschen 


R.E 

E.R 

R.O 

D.R 

3B54H 

3B59H 


3B54H 

3B42H 


3B59H 

3B42H 


R - E 
R - -R 

neuen Wert zurück nach E 


:R - D 
: R =* -R 

sneuen Wert zurück nach D 


:X-Rbstand negieren 
:Y-Rbstand negieren 


:X-Rbstand negieren 
: PLOT B + E . C + D 


;Y-Rbstand negieren 
; PLOT B + E . C + D 


3B73 7B LD 

3B74 6F LD 

3B75 7R LD 

3B7S 5F LD 

3B77 7D LD 

3B78 57 LD 

3B79 C9 RET 


;L * E 
:E * D 


:0 


L 


4 Punkte plotten und X- und Y-Rbstand vertauschen 


3B7R CD423B 
3B7D CD653B 
3B80 CD6C3B 
3B83 CD653B 
3B86 CD733B 
3B83 C3 


CRLL 3B42H 
CRLL 3B65H 
CRLL 3B6CH 
CRLL 3B65H 
CRLL 3B73H 
RET 


PLOT B + E . C + 0 
(entspricht rechts unten) 

PLOT B - E . C + D 
(entspricht links unten) 

PLOT B - E . C - D 
(entspricht links oben) 

PLOT B + E . C - 0 
(entspricht rechts oben) 
:Rbstände vertauschen 
: ( f ür 2. Rufruf. siehe 3B13H ff) 



UPRO Tür PLOT. PRINT. SHRPE und CIRCLE 
PLOT L . H CRF.BC.DE. HL) 

I: L * X-Koordinate 

H * Y-Koordinate 

C4313H) » Farbcode (entspricht FCOLOUR) 


3B8R 3R1343 
3B8D E603 


LD R.C4313H) : FCOLOUR-Wert holen 

RND 03H :RuT Werte zwischen 0 und 3 

:normieren 


: PLOT L . H 

: wie 3B8RH aber R ■ Farbcode 


3B8F 4F 
3B90 3E9F 
3B92 BD 
3B93 D8 
3B94 3E65 
3B96 BC 
3B97 08 


LD C.R 

LD R.9FH 

CP L - 

RET C 

LD R.65H 

CP H 

RET C 


C * Farbcode 

R = max . X-Wert C159) 

max . X-Wert überschritten ? 

3a: Fertig 

R * max. Y-Wert (101) 
max. Y-Wert überschritten ? 
3a: Fertig 


3B98 7D 
3B99 6C 
3B9R 2600 
3B9C 54 
3B9D 5D 
3B9E 29 
3B9F 29 
3BR0 19 
3BR 1 29 
3BR2 29 
3BR3 29 


3BR4 5F 
3BR5 CB3B 
3BR7 CB3B 


3BR9 1648 
3BRB 19 


3BRC E603 
3BRE 3C 
3BRF 47 
3BB0 3EFC 

3BB2 OF 
3BB3 OF 
5804 CBOS 
3886 CS09 
3BB3 *.0F3 


LD R.L 

LD L.H 

LD H.OOH 

LD D.H 

LD E.L 

RDD HL. HL 

RDD HL. HL 

RDD HL. DE 

RDD HL. HL 

RDD HL. HL 

RDD HL. HL 


LD E.R 

SRL E 

SRL E 


LD D.48H 

RDO HL. DE 


RND 03H 

INC R 

LD B.R 

LD R.3FCH 

RRCR 

RRCR 

PRC 3 

RRC C 

DO'NZ 3BB2H 


L » Y-Wert 
HL * Y-wert 
DE - HL 


: HL * Y-Wert » 2 

: HL * Y-Wert * 4 

: HL » Y-Wert # 5 

: HL • Y-Wert * 10 

: HL * Y-Wert * 20 

: HL - Y-Wert * 40 

sCEine Zeile des Grafikbild- 
:schirms entspricht 40 Bytes im 
: Gr af ikspeicher ) 

;E * X-Wert 
;E « X-Wert * 2 
:E » X-Wert * 4 

:CEin Byte des Grafikspeichers 
entspricht 4 X-Pos i t ionen ) 

:DE = Startadresse des Grafik- 
:speichers + X-Wert * 4 
:Zum Y-Wer t*40 hinzuaddiert 
ergibt dies die Rdresse des zu 
ländernden Bytes im Grafik- 
: Speicher 

:Position des zu setzenden Punkts 
:im Byte ermitteln 
: B * x MOD 4 

: r = : : : : : ioc 

: . 2 Bits - l Srafikpunkt: 

:0e öeiaen O-Bits an die 
:gewünschte Stelle schieben 
.•Farbcode mitscmeoen 


eiter bis Zähl 



3BBA A6 

3BBB 81 
3BBC 77 
3BBD C9 

NPLOT 


AND C HL ) 

OR C 

LD CHLKA 

RET 


:Byte des gewünschten Grafik- 
Punktes holen 
:und neuen Farbcode setzen 
:neues Byte zurückschreiben 


3BBE 0600 
3BC0 3A0603 


LD B.OOH :B * Maske für Farbe löschen 

LD A.C0306H) :-- 


PLOT 


*3BC 1 0603 

3BC3 3R1343 
3BC6 F5 
3BC7 RO 
3BCS 321343 
3BCB CD7B3C 
3BCE 382F 
3BD0 3R1543 
3B03 F5 
3B04 3R1643 
3BD7 F5 
3BD8 CD1C2B 
3BDB 321543 
3BDE F5 
3BDF CF 
3BE0 2C 
3BE1 CD1C2B 
3BE4 321643 
3BE7 D9 
3BE8 6F 
3BE9 Dl 
3BEA 62 
3BEB CI 
3BEC Dl 
3BED 58 
3BEE D9 
38EF E5 
3BF0 D9 
3BF 1 CD1F3C 
3BF4 El 
3BF5 CD7B3C 
3BF8 28D6 
3BFA Fl 
3BFB 321343 
3BFE C9 


LD B.03H 

LD A.C4313H) 

PUSH RF 

RND B 

LD C4313HJ.A 

CRLL 3C7BH 

3R C.3BFFH 

LD A.C4315H) 

PUSH RF 

LD A.C4316H) 

PUSH RF 

CRLL 2B1CH 

LD C4315HKA 

PUSH RF 

RST 08H 

DEFB 

CRLL 2B ICH 

LD C 43 1 6H ) . R 

EXX 

LD L.R 

POP DE 

LD H.D 

POP BC 

POP DE 

LD E.B 

EXX 

PUSH HL 

EXX 

CRLL 3C1FH 

POP HL 

CRLL 3C7BH 

3R Z.3BD0H 

POP RF 

LD C4313HKA 

RET 


;B * Maske für Farbe lassen 
: R = FCOLOUR-Code 
: FCOLOUR-Code retten 
: FCOLOUR-Code maskieren 
: und für PLOT L.H abspeichern 
j’TO'-Token angegeben ? 

: Nein : weiter bei 3BFFH 
:3a: letzten X-Wert holen 
:und retten 
:Letzten Y-wert holen 
:und retten 

:nachsten X-Wert holen 
: abspeichern 
:und retten 
:3etzt muß ' . ' folgen 

:nächsten Y-Wert holen 
:und abspeichern 
: Registersatz tauschen 
; L ’ * Y2 
: X-Wert zurück 
: H ' * X2 

:Letzten Y-Wert zurück 
: Letzten X-Wert zurück 
: E ' =■ Yl. D' = XI 
: Registersatz tauschen 
: PTZ retten 

: Registersatz tauschen 
: PLOT D . E TO H . L 
: PTZ zurück 
: ' TO ' angegeben ? 

:3a: nächstes X.Y-Paar holen 
:Nein: Riten FCOLOUR-Code 
: zurückschreiben 



Neue X.Y-Werte holen C 'TO' nicht am Anfang) 




3BFF CD 1 C2B 
3C02 F5 
3C03 CF 
3C04 2C 
3C05 CD1C2B 
3C08 F5 
3C09 CD7B3C 
3C0C 30CA 
3C0E Fl 
3C0F 321643 
3C12 57 
3C13 Fl 
3C14 321543 
3C17 5F 
3C18 EB 
3C 1 9 D5 
3C1A CD8A3B 
3C1D 1805 


CALL 2B1CH 

PUSH AF 

RST 08H 

DEFB 

CALL 2B1CH 

PUSH AF 

CALL 3C7BH 

3R NC . 3BD8H 

POP AF 

LD C 4316H ) . A 

LD D.A 

POP AF 

LD C4315HKA 

LD E . A* 

EX DE. HL 

PUSH DE 

CALL 3B8AH 

3R 3BF4H 


:X-Wert holen 

:und retten 

; Jet 2 t muß folgen 

sY-Wert holen 
:und retten 
:’T0* angegeben ? 

;3a: zweites X.Y-Paar holen 

:Nein: Y-Wert zurück 

:und abspeichern 

:D * Y-Wert 

; X-Wer t zurück 

;und abspeichern 

:E - X-Wert 

; DE « PTZ. H - Y- . L - X-Wert 
: PTZ retten 
: PLOT L . H 

: PTZ und alten FCOLOUR-Code 
szurück 


UPRO für PLOT 

PLOT D . E TO H . L CAF.BC.DE. HL) 
I: D = X-Hoordinate des Startpunkts 
E = Y-Koordinate des Startpunkts 
H = X-Koordinate des Endpunkts 
L = Y-Hoordinate des Endpunkts 


3C1F CDC63C 
3C22 DF 

3C23 C8 
3C24 00 
3C25 00 
3C26 05 
3C27 7B 
3C28 95 

3C29 DC8B3C 

3C2C CB 1 9 
3C2E CB39 
3C30 47 
3C31 CB39 
3C33 CB39 
3C35 7A 
3C36 94 
3C37 DC8B3C 


CALL 3CC6H 

RST 18H 

RET Z 

NOP 

NOP 

PUSH DE 

LD A.E 

SUB L 

CALL C.3C8BH 

RR C 

SRL C 

LD B.A 

SRL C 

SRL C 

LD A.D 

SUB H 

CALL C.3C8BH 


PLOT H , L (Endpunkt plotten) 
HL = DE 7 CStart- und Endpunkt 
identisch 7) 

3a: Fertig 


XI. Y1 retten 
A - Y1 

A ■ Y1 - Y2 * Differenz der 
Y-Werte 

Bei negativer Differenz 
A negieren und CY = 1 setzen 
CY nach C.7 schieben 
C rechts schieben 
B ■ Y-Diff (immer positiv !) 
C rechts schieben 
C rechts schieben 
A « XI 

-X2 ■ Differenz der X-Werte 
Bei negativer Differenz 
A negieren und CY « 1 3etzen 
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3C3A CS 13 
3C3C 37 
3C3D CB 1 3 
3C3F B8 
3C40 3840 

3C42 57 
3C43 78 
3C44 5F 


RR C 

SCF 

RR C 

CP B 

3R C.3C8FH 

LD D.R 

L0 R.B 

LD E . R 


; CY nach C.7 scnieben 
:CV * 1 

sC rechts schieben. C.7 = 1 
: X-Oi f f < Y-Oiff *> 

:3a: Die Half-Bytes von C ver- 
tauschen. E = X-Diff. D =* V-Diff 
.•Nein: D » X-Diff 

:E = V-Oiff 


In D steht jetzt Cie größere Differenz und in E die Kleinere 
Die beiden Half-Bytes von C geben die jeweilige Steigung an: 
CDas obere Half-Byte gilt für D. das untere für E) 


3C45 C5 
3C46 E5 
3C47 7R 
3C48 4F 
3C4S 3E00 
3C4B 57 
3C4C 47 
3C4D 67 
3C4E 7B 
3C4F 6F 
3C50 CB25 
3C52 CB 1 4 
3C54 ED42 

3C56 CB21 
3C58 CB10 
3C5R CB23 
3C5C CB 1 2 
3C5E 7C 
3C5F D3 
3C60 El 
3C61 CI 
3C62 Di 


PUSH BC 

PUSH HL - 

LD A.D 

LD C.A 

LD A.OOH 

LD D. A 

LD B. A 

LD H.A 

LD A.E 

LD L.A 

SLA L 

RL H 

SBC HL . BC 

SLA C 

RL B 

SLA E 

RL D 

LD A.H 

EXX 

POP HL 

POP BC 

POP DE 


:Steigung retten 
:X2.Y2 retten 
:A = Größere Differenz 
; C = A 
: A » 0 
: D = 0 

:B * O -> BC = Größere Diff 
:H = 0 

:A = Kleinere Differenz 

:L » A -> HL = Kleinere Diff 

; HL = HL * 2 

;CHL ein Bit nach links) 

: HL = Kleinere Diff * 2 - Größere 
••Differenz 

:BC = BC * 2 = Größere Diff * 2 
: C BC ein Bit nach links) 

:E = Kleinere Differenz * 2 
:D = Größere Differenz * 2 
; A = H 

: Registersatz tauschen 
:X2.Y2 zurück 
;Steigung zurück 
:X1.Y1 zurück 


Nächsten Punkt errechnen und plotten 


3C63 CB27 
3C65 D4A03C 


SLA A 

CALL NC.3CA0H 


3C68 CDAF3C CALL 3CAFH 


: A . 7 nach CV. CY = 1 ? 

: Nein : X2 und Y2 entsprechend 
:der Steigung der kleineren 
:Differenz verändern 
:X2 und Y2 entsprechend der 
:Steigung der größeren Differenz 
: verändern 



3CS3 C0C83C 
3C6E 7 A 
3C6F BC 
3C70 2003 
3C72 7B 
3C73 BD 
3C74 C8 
3C75 09 
3C76 19 
3C77 7C 
3C78 09 
3C79 1 8E8 


RET 

EXX 

ADD 


3CC6H 

A.D 


NZ.3C75H 

A.E 


HL. DE 
A.H 


:Nein: nächsten Punkt setzen 
: A * Y 1 
;Y1 » Y2 ? 

;3a: Fertig 

: Registersatz tauschen 
:HL ' = HL’ + DE' 

; A = H' 

: Registersatz tauschen 
:Nächsten Punkt setzen 


’TO' angegeben 

3C7B 7E 
3C7C FEBD 
3C7E 2000 
3C80 23 
3C81 AF 
3C82 C9 


INC 

XOR 

RET 


A . CHL 5 
OBOH 

NZ.3C8DH 


:A ■ nächstes Zeichen 
: 'TO* -Token ? 


:3a: PTZ + 1 


3C83 2B 
3C84 D7 
3C85 3E00 
3C87 C34A38 


DEC 

RST 

LD 


10H 

A.OOH 

384AH 


: PTZ -1 
; PTZ erhöhen 

: A * 0 C Def aul t -Farbwert J 
: weit er bei 384AH 


3C8A 00 


3C8B ED44 
3C8D 37 
3C8E C9 


NEG 

SCF 

RET 


: A =■ 

: CY » 


: Halfbytes von C vertauschen. E * X-Oi 

3C8F CD973C CALL 3C97H 

3C92 5F LD E.A 

3C93 78 LD A.B 

3C94 57 LD D.A 

3C95 1 8AE 3R 3C45H 

: Halfbytes von C vertauschen 


3C97 CB09 
3C9S C303 
3C3B 0309 
•C3C 3309 
3C3F C3 


PPC 

RRC 

-,PC 

PPC 

RET 


Y-Diff Csiehe 3C40H) 


:Halfbytes von C vertauschen 
:E « X-Diff 


: zurück nach 3C45H 


;C viermal links rotieren 
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X2 und Y2 entsprechend der Steigung der Kleinere Differenz verändern 


3CA0 CD973C 
3CA3 CDAF3C 
3CA6 CD973C 
3CA9 09 
3CAA B7 
3CAB ED42 
3CAD 09 
3CAE C9 


CALL 3C97H 

CALL 3CAFH 

CALL 3C97H 

EXX 

0R A 

SBC HL.BC 

EXX 
RET 


:Halfbytes von C vertauschen 
:X2 und Y2 verändern 
:Halfbytes von C vertauschen 
: Registersatz tauschen 
;CY - 0 

; HL ’ = HL' - BC' 
sRegistersatz vertauschen 


: X2 und Y2 entsprechend der Steigung der größeren Differenz verändern 


3CAF CB79 
3CB1 CABD3C 
3CB4 CB7 1 
3CB6 C2BB3C 
3CB9 24 
3CBA C9 
3CBB 25 
3CBC C9 


BIT 07H.C 

3P Z.3CBDH 

BIT 06H t C 

OP NZ.3CBBH 

INC H 

RET 

DEC H 

RET 


:Y2 verändern ? 

;0a: weiter bei 3CBD 
;Nein: X2 erhöhen ? 
:Nein: weiter bei 3CBBH 
:0a: X2 +i 

:X2 -1 


3CBD CB7 1 
3CBF C2C43C 
3CC2 2C 
3CC3 C9 
3CC4 2D 
3CC5 C9 


BIT 06H.C 

OP NZ.3CC4H 

INC L 

RET 

DEC L 

RET 


:Y2 erhöhen ? 

: Nein : weiter bei 3CC4H 
:Y2 +1 

:Y2 -1 


UPRO für PLOT 
PLOT H , L CAF) 

I: H - X-Koordinate 
L * Y-Koordinate 


3CC6 C5 
3CC7 D5 
3CC8 E5 
3CC9 7C 
3CCA 65 
3CCB 6F 
3CCC CD8A3B 
3CCF El 
3CD0 Dl 
3CD1 CI 
3CD2 C9 


PUSH BC 

PUSH OE 

PUSH HL 

LD A.H 

LD H.L 

LD L.A 

CALL 3B8AH 
POP HL 

POP DE 

POP BC 

RET 


: Register retten 

:H und L vertauschen 

: PLOT L . H 
:Register zurücK 
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XSHAPE 


3CD3 110303 
3CD6 1808 


LD 

3R 


DE.0303H 

3CE0H 


:DE « Maske für Farbe invertieren 
weiter bei 3CE0H 


NSHAPE 

3CD8 110000 
3CDB 1803 


LD 

3R 


DE.0000H 

3CE0H 


:DE = Maske für Farbe löschen 
:weiter bei 3CE0H 


SHAPE 

3CDD 110003 
3CE0 ED531743 
3CE4 2B 
3CE5 D7 
3CE6 CD1C2B 
3CE9 F5 
3CEA CF 
3CEB 2C 
3CEC CD1C2B 
3CEF Dl 
3CF0 5F 
3CF1 E5 
3CF2 C3A235 

3CF5 46 
3CF6 23 
3CF7 3A1443 
3CFA B7 
3CFB 284B 
3CFD 4F 
3CFE 7E 
3CFF CB2F 
3D01 CB2F 
3D03 CB2F 
3D05 CB2F 
3D07 08 
3008 3E0 1 


3D0A 08 
3D0B F5 
3D0C CB2F 
3D0E 383D 
3D10 CB2F 
3D12 3836 
3D14 14 


LD DE.0300H 

LD C4317H1.DE 

DEC HL 

RST 10H- 

CALL 2B1CH 

PUSH AF 

RST 08H 

DEFB 

CALL 2B1CH 

POP DE 

LD E.A 

PUSH HL 

DP 35A2H 

LD B. (HL) 

INC HL 

LD A.C4314H) 

OR A 

3R Z.3D48H 

LD C . A 

LD A.CHL) 

SRA A 

SRA A 

SRA A 

SRA A 

EX AF.AF' 

LD A.01H 


EX AF.AF' 

PUSH AF 

SRA A 

3R C.3D4DH 

SRA A 

3R C.3D4AH 

INC D 


:DE = Maske für Farbe übernehmen 
:Maske abspeichern 
: PTZ -1 
: PTZ erhöhen 
: X-Koordinate holen 
:und retten 

:Danach muß ’ , ’ stehen 

: Y-Koordinate holen 
: X-Koordinate zurück nach D 
:E * Y-Koordinate 
: PTZ retten 

; HL mit der Startadresse der 

:SHAPE-Tabel le laden 

:B = Länge der Tabelle 

: Zeiger +1 

: A = SCALE-Faktor 

.•SCALE 0 ? 

:3a: Fertig 

:Nein: C = SACLE-Faktor 
:A * Tabel lenwert 

:0bere 4 Bits nach unten schieben 


: A ' * 1 * Flag für die Be- 
arbeitung der ersten Linie 
:C3eder Tabellenwert entspricht 
:zwei Linien) 

:Tabel lenwert retten 

:Richtung vertikal ? CBitO *1) 

:3a: weiter bei 3D4DH 

: Nein : Richtung links ? CBitl *1) 

:3a: weiter bei 3D4AH 

:Nein: X +1 (Richtung rechts) 
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3015 C5 

30 1 6 05 

3017 £5 

3018 6F 

3019 3A1343 
3D1C F5 

30 1 0 70 
30 1 E 2A1743 

3D21 *4 

3022 AD 

3023 321343 

3026 6 A 
3D27 63 
3028 CD8A3B 
3D2B Fl 
3D2C 321343 
3D2F El 

3030 Dl 

3031 CI 

3032 Fl 

3033 0D 

3034 2005 


3036 C5 

3037 08 
3D38 3D 
3D39 47 
3D3A 08 
3D3B 04 
3D3C 05 
3030 CI 
3D3E 3A1443 

3041 4F 

3042 7E 

3043 28C6 
3045 23 
3D46 10AF 
3048 El 
3D49 C9 


PUSH BC 

PUSH DE 

PUSH HL 

LD L.A 

-0 A.C4913HJ 

PUSH BF 

LD A.L 

LD HL.C4317H) 

BND H 

XOR L 

LD (4313H3.A 

LD L.D 

LD H.E 

CALL 3B8AH 

POP AF ' 

LD (4313H1.A 

POP HL 

POP DE 

POP BC 

POP AF 

DEC C 

3R NZ.3D0BH 


PUSH BC 

EX AF , AF ’ 

DEC A 

LD B.A 

EX AF , AF * 

INC B 

DEC B 

POP BC 

LD A.C4314H) 

LD C.A 

LD A.CHL) 

CR Z.3D0BH 

INC HL 

D3NZ 3CF7H 

POP HL 

RET 


(Register retten 


(Tabellenwert nach L 
;A » Aktueller FCOLOUR-Wert 
(Aktuellen Wert retten 
(Tabellenwert zurück nach A 
(HL = Maske für SHAPE . NSHAPE 
(Oder XSHAPE 
(Farbwert maskieren 

(Und als FCOLOUR-Wert Tür den 
(PLOT-Aufruf abspeichern 
(L = X-Koordinate 
(H = Y-Hoordinate 
(PLOT L . H 
(Aktuellen FCOLOUR-Wert 
( zurückschreiben 
(Register zurück 


(Tabellenwert zurück 
(SCALE-Faktor > 1 •> 

:3a: Selben Tabellenwert noch- 
jeinmal (insgesamt also C-mal) 
( bearbeiten 

(Tabellenzähler retten 

(Ist das Flag = 1 ? 

(B ■ Flag -1 

( B * 0 ? 

((Dann war das Flag = 1) 
(Tabellenzahler zurück 
(A = SCALE-Faktor 
(C * SCALE-Faktor 
(A = Tabellenwert 
:3a: 2. Linie bearbeiten 
(Sonst Tabellenzeiger erhöhen 
(und nächsten Wert bearbeiten 
i PTZ zurück 


Richtung l inks 

3D4A 15 
3D4B 1 8C8 


DEC D :X-Koordinate -1 

3R 3D15H (Zurück zur 3CALZ-Rcut : ne 


Richtung vertikal 

3D4D CB2F 
3D*F 3803 
3051 IC 
3D52 19C1 


SRA A 

CR C.3D5^H 

INC E 

CR 3D15H 


Dichtung oben " Bit: =i: 
Za: weiter bei 3C^5H 
■Jein: Y +1 ("Richtung untsi 
zurück zur SCALE- B out i ne 
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Richtung oben 


3054 ID DEC E : Y-Koordinate -1 

3D55 1 8BE CR 3D15H : zurück zur SCALE-Rout i ne 

UPRO für die Zwischencodeerzeugung (siehe 392AH) 

COLOUR-Token in die codierte Zeile übernehmen 


3D57 OC 
3D58 23 

3D59 EB 


3D5A 23 
3D5B 12 
3D5C 13 
3D5D OC 
3D5E C3CC1B 


PLAY 


INC C 

INC HL 

EX DE. HL 


INC 

LD 

INC 

INC 

DP 


C 

1BCCH 


:Zeichenzähler +1 

:Buf ferzeiger +1 

:Cfür das eingerügte FFH) 

;DE = Bufferzeiger (auf codierten 
: Text 1 

; HL * Textzeiger (auf uncodierten 
: Text J 

sTextzeiger +1 

:Token im Buffer ablegen 

;Buf ferzeiger +1 

: Zeichenzähl er +1 

;zurück zur Zwischencode- 

.•erzeugung 


3D61 CF 
3D62 28 
3D63 CDC23F 
3066 FE03 

3D68 D24A1E 
3D6B F5 
3D6C CF 
3D6D 2C 
3D6E CDC43F 
3D71 FE08 

3D73 30F3 
3D75 3C 
3D76 F5 
3D77 CF 
3D78 2C 
3D79 CD1C2B 
3D7C B7 
3D7D 283F 
3D7F FEIE 
3D9 1 30E5 
3D83 CB27 
3D35 5F 
3D86 1600 
3088 CF 
ID89 2C 
3C3A 13 


RST 08H 

DEFB ’(• 

CALL 3FC2H 

CP 03H 

DP NC.1E4AH 

PUSH AF 

RST 08H 

DEFB 

CALL 3FC4H 

CP 08H 

DR NC.3D68H 

INC A 

PUSH AF 

RST 08H 

DEFB 

CALL 2B1CH 

OR A 

DR Z.3DBEH 

CP 1EH 

DR NC . 3D68H 

SLA A 

LD E.A 

LD D.OOH 

RST 08H 

DEFB 

PUSH HL 


:Klammer auf * 

:Kanalnummer holen 

: Hana l > 3 7 

:(A ist Kanalnummer -1) 

;Da: FC-Error 

;Nein: Kanalnummer retten 

sDetzt muß folgen 

lOktavnummer holen 
sOktave > 8 ? 

:(A ist Oktavnummer -1) 

: Da : FC-Error 
:A * Oktavnummer 
:Oktavnummer retten 
:Detzt muß ' . ' folgen 

:Notenwert holen 
:Notenwert ■ 0 ? 

: Da : weiter bei 3DBEH 
:Nein: Notenwert > 29 *> 
:Da: FC-Error 
:A = Notenwert * 2 
:DE « Notenwert * 2 
.-MSB von DE auf 0 setzen 
:Detzt muß folgen 

: PTZ retten 



3D8B 21CF3D 

3D8E 19 
3D8F 5E 
3D90 23 

309 1 56 

3092 El 

3093 CI 

3094 05 

3095 2806 
3097 CB3A 
3099 CB 1 B 
3D9B 10FA 
3090 Fl 
3D9E F5 
3D9F CB27 
3DA1 3C 
3DA2 CD2A3E 


3DA5 CD1C2B 
30A8 FEH 
3DAA 30BC 
3DAC 05 
3DAD 1E38 

3DAF 3E07 
3DB1 CD323E 
3DB4 Dl 
3DB5 Fl 
3DB6 C608 


3DB8 CD323E 
3DBB CF 
3DBC 29 
3DBD C9 


AOD HL. DE 

LD E.CHL3 

INC HL 

LD D.CHL) 

POP HL 

POP BC 

DEC B 

3R Z.309DH 

SRL D 

RR E 

D3NZ 3D97H 

POP RF 

PUSH RF 

SLA A - 

INC A 

CALL 3E2AH 


CALL 2B1CH 

CP 11H 

3R NC.3D68H 

PUSH DE 

LD E . 38H 

LD A.07H 

CALL 3E32H 

POP DE 

POP AF 

AOD A.08H 


CALL 3E32H 

RST 08H 

OEFB '3' 

RET 


: HL = Startadresse der PLAY- 
:Tabel l e 

: Notenwert * 2 addieren 
:und den 16-Bit Wert der 
;Tabelle entnehmen 

: PTZ zurück 
;B = Oktavnummer 
:Oktavnummer * 1 ? 

:3a: Werte lassen 
:Nein: DE rechts schieben 

: OE = DE / C 2 # Oktavwert 3 
.•Kanalnummer -1 nach A 
;und wieder retten 
:A = Kanalnummer * 2 
: + 1 

: PSG-Register A- 1 auf E. PSG- 
:Register A auf 0 setzen 
:CA zeigt auf die Register, die 
:die Schwingungsdauer bestimmet 
:Lautstärkenwert holen 
:Lautstärke > 16 ? 

:3a: FC-Error 

:Nein: Lautstärke retten 

;E = Progr ammierwert für Rauschen 

;aus und Ton ein 

:A = Registernummer 

: PSG-Register A mit E laden 

:Lautstärke zurück 

Kanalnummer zurück 

:A = Kanalnummer + 8 = Register 

: für die Lautstärke des 

:gewünschten Kanals 

:Lautstärke setzen 

Klammer geschlossen ? 


Notenwert = 0 


3DBE CF 
3DBF 2C 
30C0 CD1C2B 
3DC3 FEH 
3DC5 D24A1E 
3DC8 Fl 
3DC9 Fl 
30CA 1E00 
3DCC C3B63D 


RST 08H 

OEFB 

CALL 2B1CH 

CP 11H 

3P NC.1E4AH 

POP AF 

POP AF 

LD E.OOH 

3P 3DB6H 


:Danach muß folgen 

:Lautstärke holen 
:Lautstärke > 16 ? 

;3a: FC-Error 
Kein: Oktavnummer zurück 
Kanalnummer zurück 
:und die Lautstärke des an- 
gegebenen Kanals auf 0 setzen 


306 



3D8B 21CF3D 

3D8E 19 
3D8F 5E 
3D90 23 

309 1 56 

3092 El 

3093 CI 

3094 05 

3095 2806 
3097 CB3A 
3099 CB 1 B 
3D9B 10FA 
3090 Fl 
3D9E F5 
3D9F CB27 
3DA1 3C 
3DA2 CD2A3E 


3DA5 CD1C2B 
30A8 FEH 
3DAA 30BC 
3DAC 05 
3DAD 1E38 

3DAF 3E07 
3DB1 CD323E 
3DB4 Dl 
3DB5 Fl 
3DB6 C608 


3DB8 CD323E 
3DBB CF 
3DBC 29 
3DBD C9 


AOD HL. DE 

LD E.CHL3 

INC HL 

LD D.CHL) 

POP HL 

POP BC 

DEC B 

3R Z.309DH 

SRL D 

RR E 

D3NZ 3D97H 

POP RF 

PUSH RF 

SLA A - 

INC A 

CALL 3E2AH 


CALL 2B1CH 

CP 11H 

3R NC.3D68H 

PUSH DE 

LD E . 38H 

LD A.07H 

CALL 3E32H 

POP DE 

POP AF 

AOD A.08H 


CALL 3E32H 

RST 08H 

OEFB '3' 

RET 


: HL = Startadresse der PLAY- 
:Tabel l e 

: Notenwert * 2 addieren 
:und den 16-Bit Wert der 
;Tabelle entnehmen 

: PTZ zurück 
;B = Oktavnummer 
:Oktavnummer * 1 ? 

:3a: Werte lassen 
:Nein: DE rechts schieben 

: OE = DE / C 2 # Oktavwert 3 
.•Kanalnummer -1 nach A 
;und wieder retten 
:A = Kanalnummer * 2 
: + 1 

: PSG-Register A- 1 auf E. PSG- 
:Register A auf 0 setzen 
:CA zeigt auf die Register, die 
:die Schwingungsdauer bestimmet 
:Lautstärkenwert holen 
:Lautstärke > 16 ? 

:3a: FC-Error 

:Nein: Lautstärke retten 

;E = Progr ammierwert für Rauschen 

;aus und Ton ein 

:A = Registernummer 

: PSG-Register A mit E laden 

:Lautstärke zurück 

Kanalnummer zurück 

:A = Kanalnummer + 8 = Register 

: für die Lautstärke des 

:gewünschten Kanals 

:Lautstärke setzen 

Klammer geschlossen ? 


Notenwert = 0 


3DBE CF 
3DBF 2C 
30C0 CD1C2B 
3DC3 FEH 
3DC5 D24A1E 
3DC8 Fl 
3DC9 Fl 
30CA 1E00 
3DCC C3B63D 


RST 08H 

OEFB 

CALL 2B1CH 

CP 11H 

3P NC.1E4AH 

POP AF 

POP AF 

LD E.OOH 

3P 3DB6H 


:Danach muß folgen 

:Lautstärke holen 
:Lautstärke > 16 ? 

;3a: FC-Error 
Kein: Oktavnummer zurück 
Kanalnummer zurück 
:und die Lautstärke des an- 
gegebenen Kanals auf 0 setzen 
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PLRY-Taoel Le 

Enthalt für die 29 wählbaren Noten den entsprechenden 16-Bit Wert 
für die Schwingungsdauer-Register 

3DCF 00 00 
3DD1 SD OD 
3DD3 E7 OB 
3DD5 9B OR 
3DD7 02 OR 
3DD9 EB 08 
30DB F2 07 
3DDD 14 07 
3DDF 9C OC 
3DE 1 3C OB 
3DE3 73 09 
3DE5 6B 08 
3DE7 80 07 
3DE9 5D OD 
3DEB 5D OD 
30ED 5D OD 
3DEF 4R 09 
3DF 1 90 10 
3DF3 CO OE 
3DF5 24 00 
3DF7 68 OC 
3DF9 OC OB 
3DFB D8 09 
3DFD C8 08 
3DFF RO OF 
3E01 EB OD 
3E03 B4 OB 
3E05 70 OR 
3E07 4R 09 
3E09 48 08 

3E0B F6B7 
3E0D C9 

UPRO für ? C unbenutzt) 

DE nach X übergeben. Im INT-Format wenn DE > 0 sonst im SNG-Format 


OR 0B7H 

RET 


3E0E CB7R 
3E10 2813 
3E12 CDEFOR 
3E15 7R 
3E16 53 
3E17 1 EOO 
3E19 B7 
3E1R 1F 
3E 18 :b:r 
IE 10 13 1B 
3E 1 F 1691 
3E21 C06309 


BIT 07H.D 

3R Z.3E25H 

CRLL OREFH 

LD R.D 

LD D.E 

LD E.OOH 

OR R 

RRR 

RR 0 

RR E 


: D . 7 = 0 ? 

:3a: DE als INT nach X übergeben 
; VT auf SNG setzen 
: R <- D <- E <- OOH 
: C DE 8 Bit nach links schieben 
:mit Überlauf in R) 

: CY = 0 

:RDE wieder 1 Bit nach rechts 
:schieben 


LD 3.31H 

3RL_ J969H 

RE“ 


B = Exponent für 2 hoch 17 
RDE in Fließkommaformat 
umwanaem und in X ao legen 



: DE als INT nach X übergeben (unbenutzt) 

3E25 EB EX DE. HL : HL = DE 

3E26 CD9A0A CALL 0A9AH ; HL als INT nach X übergeben 

3E29 C9 RET 

: UPRO zur PSG-Programmierung 
i I: A = Registernummer 

: DE = 16-Bit Wert der in die Register A und A-l übergeben wird 

: (Entspricht den Befehlen SOUND A.D und SOUND A-l.E 


3E2A 47 
3E2B D3F8 
3E2D 7A 
3E2E D3F9 
3E30 05 
3E31 78 
3E32 D3F8 
3E34 7B 
3E35 D3F9 
3E37 C9 


LD B.A 

OUT ( 0F8H ) . A 

LD A.D 

OUT COF9H3.A 

DEC B 

LD A.B 

OUT ( 0F8H ) . A 

LD A.E 

OUT (0F9HJ.A 

RET 


:B = Registernummer 
:Register A anwählen 
:und D 
: übergeben 

:B = Registernummer -1 
: A ■ B 

:Register A(-l) anwählen 
: und E 
; übergeben 


: PAINT 


3E38 AF 
3E39 2B 
3E3A 3C 


3E3B 08 
3E3C D7 
3E3D CD1C2B 
3E40 F5 
3E4 1 2B 
3E42 D7 

3E43 280C 
3E45 FE2C 
3E47 2005 
3E49 08 
3E4A FE05 
3E4C 38EC 
3E4E C 397 19 


XOR A 

DEC HL 

INC A 


EX AF.AF' 

RST 10H 

CALL 2B1CH 

PUSH AF 

DEC HL 

RST 10H 

OR Z.3E51H 

CP 2CH 

OR NZ.3E4EH 

EX AF.AF' 

CP 05H 

OR C.3E3AH 

OP 1997H 


: A * 0 
: PTZ -1 

: A +1 (Zähler für Anzahl der 
:angegebenen Werte 
: (zwischen 3 und 5) 

; A ' = Zähler 

: PTZ erhöhen 

:Wert holen 

:Wert retten 

: PTZ -1 

: PTZ erhöhen 

: Bef eh l sende erreicht ? 

:0a: weiter bei 3E51H 

:Nein: Komma als Trennzeichen ? 

:Nein: SN-Error 

: A = Zähler 

; Mehr als 5 Werte ? 

:Nein: nächsten Wert holen 
;0a: SN-Error 


3E5 1 
3E52 
3E54 
3E56 
3E57 
3E58 


08 

FE03 

38F8 

3D 

3D 


321D43 


EX AF.AF' 

CP 03H 

OR C.3E4EH 

DEC A 

DEC A 

LD ( 431DH ) , A 


; A = Zähler 

; weniger als 3 Werte 7 
:0a: SN-Error 
: A = Zähler -2 

:Zähler -2 (entspricht der Anzahl 
: der angegebenen Begrenzungs- 
: färben) abspeichern 
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3E5B 111843 

LO 

OE . 4318H 

DE = Anfangsadresse der 
Begrenzungs f arbent abel l e -1 

3E5E 47 

LD 

B.R 

B * Anzahl der B. -Farben 

3E5F 83 

AOO 

A.E 

+ LSB von DE 

3E60 5F 

LD 

E . A 

DE * Ende der Tabel le 

3E61 Fl 

POP 

AF 

Wert aus Stack holen 

3E62 30 

DEC 

A 

-1 

3E63 FE04 

CP 

04H 

Angegebener Farbwert > 4 ? 

3E65 D24A1E 

3P 

NC . 1E4AH 

3a: FC-Error 

3E68 12 

LD 

( DE ) . A 

Nein: Wert abspeichern 

3E63 13 

DEC 

DE 

Zeiger -1 

3E6A 1 0F5 

D3NZ 

3E61H 

Nächsten Wert 

3E6C Fl 

POP 

AF 

Y-Koordinate nach A 

3E6D FE66 

CP 

66H 

Y > 101 ? 

3E6F 30F4 

3R 

NC.3E65H 

3a: FC-Error 

3E7 1 57 

LO 

D.A - 

Nein: D * Y-Koordinate 

3E72 Fl 

POP 

AF 

X-Koordinate nach A 

3E73 FEAO 

CP 

OAOH 

X > 159 *> 

3E75 30EE 

3R 

NC.3E65H 

3a: FC-Error 

3E77 5F 

LD 

E.A 

Nein: E « X-Koordinate 

3E78 E5 

PUSH 

HL 

PTZ retten 

3E79 21FFFF 

LD 

HL.OFFFFH 

HL ■ -1 CFlag für Rout inenende J 

3E7C E5 

PUSH 

HL 

Flag retten 

3E7D EB 

EX 

DE. HL 

HL * Koordinaten 

Nächsten Punkt setzen 

3E7E 221E43 

LD 

C431EHJ .HL 

Koordinaten abspeichern 

3E8 1 CD043F 

CftLL 

3F04H 

Farbe setzen, wenn Begrenzung 
noch nicht erreicht 

3E84 2806 

3R 

Z.3ESCH 

weiter bei 3E8CH wenn Begrenzung 
schon erreicht 

3E86 2D 

OEC 

L 

Sonst X -1 

3E87 3EFF 

LD 

A.OFFH 

A » -1 

3E89 BO 

CP 

L 

X - -1 7 

3E8A 20F5 

3R 

NZ.3E81H 

Nein: Nächsten Punkt 

3ESC 2C 

INC 

L 

3a: X +1 

3E8D 7D 

LD 

A.L 

A - X-Koordinate 

3E8E 322043 

LD 

C4320H) . A 

X abspeichern (linker Rand) 

3E9 1 2A1E43 

LD 

HL.C431EH5 

Letzte Koordinaten nach HL 

3E94 2C 

INC 

L 

X +1 

3E95 3EA0 

LD 

A . OAOH 

A - 160 

3E97 BD 

CP 

L 

X « 160 7 

3E98 2805 

3R 

Z.3E9FH 

3a: weiter bei 3E9FH 

3E9A CD043F 

CRLL 

3F04H 

Nein: Farbe setzen wenn 
Begrenzung noch nicht erreicht 

3E90 20F5 

3R 

NZ . 3E94H 

Näcnsten Punnt wenn Begrenzung 
noch nicht erreicht 

3E3F 20 

DEC 

!_ 

X -1 

3EA0 '0 


A.L 

A * x-Koordinate 

3EA1 322143 

-D 

AS21H ) . A 

sbsoeichern -echter Aana: 



3ER4 

3FI1F43 

LD 

R. C 431 FH) 

:R = Y-Koordinate 

3ER7 

R 7 

FIND 

R 

o 

> 

3ER8 

280C 

3R 

Z.3EB6H 

:3a: weiter bei 3EB6H 

3ERR 

30 

DEC 

R 

: Y -l 

3ERB 

67 

LD 

H.R 

: H = Y-Koordinate 

3ERC 

CDC33E 

CRLL 

3EC3H 

; Y-Koordinate überprüfen 

3ERF 

3R1F43 

LD 

R. ( 431 FH 1 

:R * Y-Koordinate 

3EB2 

FE65 

CP 

65H 

: Y - 102 ? 

3EB4 

2805 

3R 

Z.3EBBH 

:3a: weiter bei 3EBBH 

3EB6 

3C 

INC 

R 

:Nein: Y +1 

3EB7 

67 

LD 

H.R 

; H « Y-Koordinate 

3EB8 

CDC33E 

CRLL 

3EC3H 

;Y-Koordinate überprüfen 

3EBB 

3EFF 

LD 

R.OFFH 

:R - -1 

3EBD 

El 

POP 

HL 

; Y-Koordinate zurück 

3EBE 

BC 

CP 

H 

;Flag erreicht ? 

3EBF 

20BD 

3R 

NZ.3E7EH 

:Nein: Nächsten Punkt 

3EC1 

El 

POP 

HL 

:3a: PTZ zurück 

3EC2 

C9 

RET 



Y-Koordinate überpr 

üfen 



I: H 

= Y-Koordinate 




3EC3 

OEFF 

LD 

C . OFFH 

:C - 255 CFlagl 

3EC5 

3FI2043 

LD 

R. C4320H) 

:R ■ X-Koordinate des linken 
: Randes 

3EC8 

6F 

LD 

L.R 

:L * Linker Rand 

3EC9 

3R2143 

LD 

R. C4321H) 

:R = X-Koordinate des rechten 
: Randes 

3ECC 

95 

SUB 

L 

; R = Rbstand zwischen beiden 
: Rändern 

3ECD 

47 

LD 

B.R 

:B * Rbstand 

3ECE 

04 

INC 

B 

: +1 

3ECF 

C8 

RET 

Z 

.•Fertig wenn beide Ränder 
: identisch sind 

Gesamte Zeile der neuen V-Koordinate überprüfen 

3EDO 

C5 

PUSH 

BC 

:Register retten 

3ED1 

E5 

PUSH 

HL 


3ED2 

CDF13E 

CRLL 

3EF1H 

; Begrenzungsfarbe bei L.H 
;erreicht 7 

3ED5 

El 

POP 

HL 

:Register zurück 

3ED6 

CI 

POP 

BC 


3ED7 

2006 

3R 

NZ.3EDFH 

.•Nein: weiter bei 3EDFH 

3ED9 

OEFF 

LD 

C . OFFH 

:3a: Flag * 255 

3EDB 

2C 

INC 

L 

: X +1 

3EDC 

10F2 

D3NZ 

3ED0H 

:nächste X-Koordinate kontrol 
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Begrenzungs färbe an der neuen Y-Koordinate noch nicht erreicht 


3EDF BF 
3EE0 B9 


3EE1 28F8 
3EE3 0E02 
3EE5 C5 
3EE6 CD6319 
3EE9 CI 
3EER Dl 
3EEB E5 
3EEC D5 
3EED OEOO 
3EEF 18ER 


XOR R 

CP C 


3R Z.3EDBH 

LD C.02H 

PUSH BC 

CRLL 1963H 

POP BC 

POP DE 

PUSH HL 

PUSH DE 

LD C.OOH 

3R 3EDBH 


: R * 0 
:Flag * O 9 

: C Wurde dieser Bereich schon 
{erkannt ?) 

:3a: weiter bei 3EDBH 
;Nein: C * 2 (für 1963H5 
; BC retten 

: Noch Platz im Stack ? 

:BC zurück 

: RET-Rdr nach DE 

:X. Y-Koordinaten retten 

: RET-Rdr wieder ins Stack 

: Fl ag = 0 

: wei ter bei 3EDBH 


Begrenzungs färbe am Punkt L.H erreicht ? 
3a: Z. Nein: NZ 


3EF1 CD3R3F 
3EF4 E5 
3EF5 211D43 

3EF8 46 
3EF9 211943 

3EFC BE 
3EFD 2803 
3EFF 23 
3F00 1 OFR 
3F02 El 
3F03 C9 


CRLL 3F3RH 

PUSH HL 

LD HL.431DH 

LD B.CHLJ 

LD HL.4319H 

CP CHL) 

3R Z.3F02H 

INC HL 

D3NZ 3EFCH 

POP HL 

RET 


: R - CPOINTC L.H ) 
:Koordinaten retten 
: HL : Rnzahl der Begrenzungs- 
: färben 

:B = Rnzahl der Beg. -Farben 
:HL = Zeiger auf Begrenzungs- 
: f arbentabel le 

:Begrenzungs färbe erreicht ? 
:3a: Fertig 
: Zeiger +1 

:Nächste Farbe prüfen 
:Koordinaten zurück 


Punkt L.H in neue Farbe umwandeln, falls Begrenzungs färbe noch nicht erreicht 


3F04 E5 

PUSH 

HL 

{Koordinaten retten 

3F05 CDF13E 

CRLL 

3EF1H 

: Begrenzungs f arbe erreicht ? 

3F08 F5 

PUSH 

RF 

;Flags retten 

3F09 41 

LD 

B.C 

:B - X MOD 4 (von CPOINT) 

3F0R 3R1943 

LD 

R. C4319H) 

{R « neue Farbe 

3F0D 4F 

LD 

C.R 

:C » R 

3F0E C4B03B 

CRLL 

NZ.3BB0H 

{Neue Farbe setzen, falls 
: Begrenzungs f arbe noch nicht 
{erreicht 

3F 1 1 Fl 

POP 

RF 

{Flags zurück 

3F12 El 
3F13 C9 

POP 

RET 

HL 

{Koordinaten zurück 

Rite KEY PRO 1 -Rout ine 

( jetzt 

unbenutzt 5 


3F 1 4 16 FE 

LD 

D.OFEH 


3F16 1802 

3R 

3F1RH 




Alte KEYPAD2-Rout ine C jetzt unbenutzt) 


3F18 16F7 
3F1A CD873A 
3F1D 6F 
3F1E 2600 
3F20 C9 


LD D.0F7H 

CALL 3A87H 

LD L . A 

LD H.00H 

RET 


: UPRO für die AusdrucKabearbei tung Cab 2337H) 
: Hier Fortsetzung von 3F7AH 
: Abfangen von COLOUR-Basic Funktionen 


3F21 FE91 
3F23 CAF436 
3F26 FE8A 
3F28 CA0A37 
3F2B FE80 
3F2D CA6136 
3F30 C30525 


: VERIFY 


CP 91H 

3P 2.36F4H 

CP 8AH 

3P Z.3T0AH 

CP 80H 

3P Z . 366 1H 

3P 2505H 


: 'SOUND' -Token 

:3a: weiter bei 36F4H 

: 'SCALE '-Token ? 

;3a: weiter bei 370AH 
; ’COLOUR' -Token ? 

:3a: weiter bei 3661H 
:Nein: zurück zur Ausdrucks- 
: bearbeitung 


3F33 23 
3F34 C3292C 


INC HL : PTZ +1 

3P 2C29H .-weiter bei 2C29H 


3F37 6E 
3F38 63 
3F39 77 


LO L.CHL) 

LD H.E 

LD C HL ) . A 


UPRO für C PO INT und PAINT 
A = C PO INT C L . H ) CAF.BC.DE. HL) 

I: L = X-Koordinate des zu testenden Punktes 
H * Y-Hoordinate des zu testenden Punktes 
0: A * Farbwert des Punktes 


3F3A 7D 
3F3B 6C 
3F3C 2600 
3F3E 54 
3F3F 5D 
3F40 29 
3F4 1 29 
3F42 19 
3F43 29 
3F44 29 
3F45 29 
3F46 5F 
3F47 CB3B 
3F49 CB3B 


LD A.L 

LD L.H 

LD H.OOH 

LD D.H 

LD E.L 

ADD HL. HL 

ADD HL. HL 

ADD HL. DE 

ADD HL. HL 

ADD HL. HL 

ADD HL. HL 

LD E.A 

SRL E 

3RL E 


A = X-Koordinate 
HL « Y-Koordinate 
MSB von HL auf 0 
DE = HL 

HL * Y * 2 

HL ■ Y * 4 

HL » Y * 5 

HL * Y * 10 
HL = Y * 20 
HL - Y * 40 
E = X-Koordinate 
E - X * 2 
E * X * 4 
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3F4B 1648 


3F40 19 

3F4E E603 
3F50 3C 
3F51 4F 
3F52 47 
3F53 7E 
3F54 07 
3F55 07 
3F56 10FC 
3F58 E603 
3F5A C9 


LD D.48H 


ADD HL. DE 

AND 03H 

INC A 

LD C.A 

LD B.A 

LD A.CHLD 

RLCA 
RLCA 

D3NZ 3F54H 

AND 03H 

RET 


:0E » Startadresse des Grafik- 
:speichers + 4 * X (entspricht 
:der 'Spalte' des zu setzenden 
: Punktes ) 

; Y * 40 C ’ Zei l enposi t ion ' ) hinzu- 
;addieren = Adresse 
:A * X MOD 3 
: A +1 

: C = A (für PA INT) 

:B * A als Zähler 
.•Alten Wert holen 
Gewünschten Punkt in Bit- 
: Positionen 0 und 1 
ischieben 

:Bits 2 bis 7 löschen » Farb- 
:wert des gewünschten Punktes 


3F5B 00 


NOP 


C PO INT 


3F5C CF 
3F5D 28 
3F5E CD1C2B 
3F61 F5 
3F62 CF 
3F63 2C 
3F64 CD1C2B 
3F67 F5 
3F68 CF 
3F69 29 
3F6A Dl 
3F6B Fl 
3F6C EB 
3F6D D5 
3F6E 6F 
3F6F CD3A3F 
3F72 6F 
3F73 2600 
3F75 CD9A0A 
3F78 El 
3F79 C9 


RST 08H 


sKlammer auf ? 


PUSH AF 

RST 08H 

DEFB 

CALL 2B ICH 

PUSH AF 

RST 08H 

OEFB 

POP DE 

POP AF 

EX DE. HL 

PUSH DE 

LD L.A 

CALL 3F3AH 

LD L.A 

LD H.OOH 

CALL 0A9AH 

POP HL 

RET 


:X-Koordinate holen 

:und retten 

:Komma als Trennung ? 

: V-Koordinate holen 
:und retten 
••Klammer zu ? 

: Y-Koordinate nach D 
jX-Koordinate nach A 
: DE * PTZ . H * Y 
; PTZ retten 
:L = X 

; A « C PO INT ( L . H ) 

;HL ■ Farbwert 

.-MSB auf 0 setzen 

:HL als INT nach X übergeben 

: PTZ zurück 


UPRO für die Ausdrucksbear bei tung (siehe 2501H) 
Abfangen von COLOUR-Basic Funktionen 


3F7A CAFE27 

3F7D FEFF 
3F7F C20425 
3F82 D7 


3P Z.27FEH 

CP OFFH 

DP NZ.2504H 

RST 10H 


: Sprung nach 27FEH wenn 
s'USR' -Token gefunden 
: COLOUR-Bas ic Token •> 

:Nein: weiter bei 2504H 

:3a: PTZ erhöhen, nächstes Token 

:nach A 
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3F33 23 
3F94 c£82 
3F86 CA0F3A 
3F39 FE8F 
3F8B 28CF 
3F3D FE83 
3F8F CA1F3A 
3F92 C3213F 


INC HL 

CP 82H 

3P Z.3A0FH 

CP 8FH 

3R Z.3F5CH 

CP 83H 

3P Z.3A1FH 

3P 3F21H 


; PTZ +1 

: 'HEYPAD' -Token 7 
:3a: weiter bei 3AOFH 
: 'CPOINT' -Token ? 

:3a: weiter bei 3F5CH 
:'30Y # -Token ? 

:3a: weiter bei 3A1FH 
:Nein: weiter bei 3F21H 


: SOUND 


3F95 CD1C2B 
3F98 FE 1 0 
3F9A 024A1E 
3F9D F5 
3F9E CF 
3F9F 2C 
3FA0 CD1C2B 
3FA3 5F 
3FA4 Fl 
3FA5 C3323E 

; CHAR 


CALL 2B1CH 

CP 10H 

3P NC.1E4AH 

PUSH AF 

RST 08H - 

DEFB 

CALL 2B1CH 

LD E.A 

POP AF 

3P 3E32H 


:Registernummer holen 
: Registernummer >15 ? 

:3a: FC-Error 

:Nein: Registernummer retten 
:Komma als Trennung 7 

: Wert holen 
:E = Wert 

:Registernummer zurück 

;und E ins Register A übertragen 


3FA8 CDC23F 
3FAB FE04 
3FAD 024A1E 
3FB0 E603 
3FB2 07 
3FB3 07 
t3FB4 07 
3FB5 47 
3FB6 3A1C43 
3FB9 E6E7 
3FBB BO 
3FBC D3FF 
3FBE 321C43 
3FC 1 C9 


CALL 3FC2H 

CP 04H 

3P NC.1E4AH 

AND 03H 

RLCA 

RLCA 

RLCA 

LD B.A 

LD A . C 43 ICH 1 

AND 0E7H 

OR B 

OUT COFFHKA 

LD C 431CH ) . A 

RET 


:Wert -1 nach A holen 
;Wert > 4 ? 

:3a: FC-Error 

;Nein: Auf 0 bis 3 begrenzen 
:und in Bits 3 und 4 schieben 
:Csiehe Belegung Port 255 im 
: Handbuch S. 1221 
;B = Wert 

: A = Letzter Wert von Port 255 
; Bi ts 3 und 4 auf 0 setzen 
:Neue Bits einblenden 
:nach Port 255 schreiben 
:und neuen Wert abspeichern 


Ausdruck ab (HL) bearbeiten und Wert -1 in A zurückgeben 
I : HL * PTZ auf BASIC-Ausdruck 
0: A = Wert des Ausdrucks -1 


3FC2 2B DEC 

3FC3 D7 RST 

3FC4 CD1C2B CALL 

3FC7 3D DEC 

3FC8 C9 RET 


HL > PTZ -1 

10H : PTZ erhöhen 

2B1CH :Wert holen 

A {Wert -1 
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Zeichen- und Cursor färbe setzen (unbenutzt) 
Jetzt ab 35EEH ff 


vj 


3FC9 CD7A30 
3FCC 23 
3FCD CD7A30 
3FD0 2B 
3FD 1 C9 


CALL 307 AH 

INC HL 

CALL 307AH 

DEC HL 

RET 


; UPRO für LIST (siehe 2B91H) 

: Kein Token gefunden. Textkonstante ausgeben ? 


3FD2 FE22 
3FD4 C2892B 
3FD7 03 
3FD8 15 
3FD9 C8 
3FDA 7E 
3FDB FE22 
3FDD 23 
3FDE 02 
3FCF CA892B 
3FE2 1 8F3 


CP 22H 

3P NZ.2B89H 

INC BC 

DEC D 

RET Z 

LD A.(HL) 

CP 22H 

INC HL 

LD (BC).A 

OP Z.2B89H 

3R 3FD7H 


: Text konstante 7 
:Nein: zurück nach LIST 
:3a: Bufferzeiger +1 
: Zähler -1 

:Fertig wenn Zeilenbuffer voll 

:Zeichen holen 

: Ende des Textes erreicht 7 

:Textzeiger +1 

••Zeichen im Buffer ablegen 

:3a: zurück nach LIST 

:Nein: nächstes Zeichen 


: BGRD 


3FE4 2B 
3FE5 D7 
3FE6 0604 
3FE8 CABD38 

3FEB CDC23F 
3 FEE FE04 
3FF0 D24A1E 
3FF3 E603 
3FF5 OF 
3FF6 OF 
3FF7 47 
3FF8 3A1C43 
3FFB E63F 
3FFD C3C238 


DEC HL 

RST 10H 

LD B.04H 

3P Z.38BDH 

CALL 3FC2H 

CP 04H 

3P NC.1E4AH 

AND 03H 

RRCA 

RRCA 

LD B.A 

LD A . ( 431CH ) 

AND 3FH 

3P 38C2H 


: PTZ -1 

: PTZ erhöhen 

: B , 3 « 1 (für Port 255) 

:weiter bei 38BDH wenn kein 
;Argument angegeben 
:Argument holen 
:Argument >47 
:3a: FC-Error 
: Bi ts 2 bis 7 löschen 
:Restliche Bits nach 
: Bi t 6 und 7 schieben 
:B = Wert 

: A * letzter Portwert 
••Bits 6 und 7 löschen 
;B einblenden und nach Port 255 
:schreiben 
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; RRM-Listing für das COLOUR-GENIE 


1 6384 
16387 
16390 
16393 

16396 

16397 

16398 

16399 

16400 

16401 

16402 

16403 

16404 


4000H C3961C 3P 1C96H 
4003H C3781D 3P 1D78H 
4006H C3901C 3P 1C90H 
4009H C3D925 DP 25D9H 
400CH C9 RET 

400DH 00 NOP 

400EH 00 NOP 

400FH C9 RET 

4010H 00 NOP 

401 1H 00 NOP 

4012H FB EI 

4013H C9 RET 

4014H 00 NOP 


RST 08H Vektor 
: RST 10H Vektor 
RST 18H Vektor 
RST 20H Vektor 
RST 28H Vektor 


CBreak- Vektor) 


; RST 30H Vektor 
: RST 38H Vektor (NMI-Vektor) 


: Tastatur DCB 


16405 4015H 01 

16406 4016H E303 

16408 4018H 00 


16409 4019H 07 

16410 401 RH 40 

16411 401BH 20 

16412 401CH 49 


: DCB-Typ 

:Rdresse der DCB-Routine: 03E3H 
; Fl ag für CTRL und MOD SEL 
:Bit7 = 1: CTRL gedrückt 
:Bit6 : MOD SEL-Flag 

( 1 = Grafik. 0 * RSC I I -Zeichen) 

:2 Bytes zur Cursorprogrammierung (siehe Handbuch S. 114) 
:Diese Bytes werden in die Register 10 und 11 des CRTCs 
:kopiert 


; Bildschirm DCB 


16413 

16414 
16416 

16418 

16419 

16420 

: Drucl 

16421 

16422 

16424 

16425 


16426 



401 DH 07 
401EH E430 
4020H 0044 
4022H 01 

4023H 01 
4024H 03 

:r DCB 

4025H 06 
4026H E704 
4028H 43 
4029H 00 

402RH 00 
402BH 50 
402CH 42 


DCB-Typ 

Rdresse der DCB-Routine: 30E4H 

Cursor-Rdresse C 4400H = Start des Bildschirmspeichers) 
RSCII-Wert des Zeichens an der Cursorpos i t i on 
( = 00H wenn Cursor ausgeschaltet) 

Rktuel l er COLOUR-Wert 

RSCII-Wert der zuletzt gedrückten Taste (für REPERT) 


DCB-Typ 

Rdresse der DCB-Routine: 04E7H 

Maximale Rnzahl der Zeilen pro Seite + 1 

Rnzahl der bereits gedruckten Zeilen auf der jetzigen 

Seite 





DOS 


16429 402DH C30050 UP 5000H 

16432 4030H C7 RST OOH 

16433 403 1H 00 NOP 

16434 4032H 00 NOP 

Ansprung bei falschem DCB-Typ 

16435 4033H 3E00 LD A . OOH 

16437 4035H C9 RET 


Zwischenspeicher für Tastaturrout ine 

Hier werden bei jeder Tastaturabfrage die aktuellen Werte der 
acht Tastaturadressen abgelegt Csiehe Handbuch S. 125) 


16438 4036H 00 : F801H 

16439 4037H 00 ; F802H 

16440 4038H 00 : F804H 

16441 4039H 00 : F808H 

16442 403AH 00 ; F810H 

16443 403BH 00 ; F820H 

16444 403CH 00 : F840H 

16445 403DH 00 : F880H 


16446 403EH 00 

16447 403FH 00 

16448 4040H 00 

16449 404 1H 00 

16450 4042H 00 

16451 4043H 00 

16452 4044H 00 

16453 4045H 00 

16454 4046H 00 

16455 4047H 00 

16456 4048H 00 

16457 4049H 00 

16458 404AH 00 

16459 404BH 00 

16460 404CH 00 

16461 404DH 00 

16462 404EH 00 

16463 404FH 00 

16464 4050H 00 

16465 4051H 00 

16466 4052H 00 

16467 4053H 00 

16468 4054H 00 

16469 4055H 00 

16470 4056H 00 

16471 4057H 00 

16472 4058H 00 



16473 4059H 00 

16474 405AH 00 

16475 405BH 00 

16476 405CH 00 

16477 405DH 00 

16478 405EH 00 

16479 405FH 00 

16480 4060H 00 

16481 4061H 00 

16482 4062H 00 

16483 4063H 00 

16484 4064H 00 

16485 4065H 00 

16486 4066H 00 

16487 4067H 00 

16488 4068H 00 

16489 4069H 00 

16490 406AH 00 

16491 406BH 00 

S^/ 16492 406CH 00 

16493 406DH 00 

16494 406EH 00 

16495 406FH 00 

16496 4070H 00 

16497 407 1H 00 

16498 4072H 00 

16499 4073H 00 

16500 4074 H 00 

16501 4075H 00 

16502 4076H 00 

16503 4077H 00 

16504 4078H 00 

16505 4079H 00 

16506 407 AH 00 

16507 407BH 00 

16508 407CH 00 

16509 407DH 00 

16510 407EH 00 

16511 407FH 00 

UPRO für SDIV Csiehe 08CAH) 


16512 4080H D600 SUB OOH 

16514 4082H 6F LD L.A 

16515 4083H 7C LD A.H 

16516 4084H DEOO SBC OOH 

16513 4086H 67 LD H.A 

16519 4087H 78 LD A.B 

16520 4088H DEOO SBC OOH 

16522 408AH 47 LD B.A 

16523 408BH 3E00 LD A.OOH 

16525 408DH C3 RET 
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16526 408EH 4A1E :Adresse für den USR-Aufruf C 1E4AH * FC-Error) 

16528 4090H 40 Multiplikator für die RND-Funktion Csiehe 14F0H fM 

16529 4091H E6 : (Mantisse des Wertes 0.253514 aber mit MSB zuerst !) 

16530 4092H 4D 

; UPRO für INP Csiehe 2AF5H) 

16531 4093H DBOO IN A.COOH) 

16533 4095H C9 RET 


: UPRO für OUT (siehe 2AFEH) 


16534 4096H 0300 OUT COOH).A 
16536 4098H C9 RET 


16537 4099H 00 

16538 409AH 00 

16539 409BH 00 

16540 409CH 00 

16541 4090H 28 

16542 409EH IE 

16543 409FH 00 

16544 40A0H 4C 

16545 40A1H 43 

16546 40R2H FE 

16547 40A3H FF 

16548 40A4H 01 

16549 40R5H 48 

16550 40A6H 20 

16551 40R7H 

16552 40A8H 

16553 40A9H 

16554 40AAH 

16555 40RBH 

16556 40RCH 

*15555 -lOABH 


: ASC I I -Wert der zuletzt gedrückten Taste (für INKEYS) 

; Letzter Fehlercode (für ERR) 

;Anzahl der ausgegebenen Zeichen in der aktuellen 
: Druckerzei l e (DPOS) 

: Ausgabe f l ag (siehe 032AH ff) 

;Anzahl der Zeichen pro Zeile auf dem Bildschirm 

:Höchste erreichbare Tabulatorposition auf dem Bildschirm 
: C für Shift-Rechtspfeil und PRINT. ) 


:Zeiger auf den Start des Stringspeichers 
: (wird bei Start 6 auf TOPMEM - 50 gesetzt) 

:Aktuelle Zeilennummer: 

: 65535 im aktiven Befehlsmodus 
; 65534 während der MEM SIZE Abfrage 
:0 - 65529 während des Programmablaufs 

:Zeiger auf den Start des BASIC-Programms 
: ( 4801H ohne Grafik. 5801H mit Grafik) 

: Cursor pos i t ion in der Bildschirmzeile (für POS-Funktion) 

•.Zeiger auf den Zeilenbuffer (siehe 0361H ff) 

: C Im Basic = 41E8H) 

: INPUT-Fl ag C» 00H bei INP'JT#) 

:3 Bytes Mantisse der letzten RND-Zahl 


: = R-Register bei RANDOM-Auf ruf 





16557 40A0H 

16558 40AEH 


16559 40AFH 

16560 40B0H 


16561 40B1H FF 

16562 40B2H 7E 

16563 40B3H B5 

16564 40B4H 40 


:DIM-Fl ag . Dieses Flag zeigt ob die Routine 260DH ff ein 
:Feld anlegen (für DIM) . oder die Adresse eines 
: Fel de l ements errechnen soll (für VARPTR) 

:Typcode der Variablen in X (VT) 

: DATA-F l ag . Ist diese Flag bei der Zeilencodierung 
.•ungleich 0. wird die gesamte Zeile bis zum Zeilenende 
:bzw. bis zum Befehlsende (':') nicht codiert. Dadurch 
:wird erreicht, daß z.B. bei einer DATA-Zeile die Zeichen 
:nicht in Token umgewandelt werden 

:Zeiger auf den höchsten verfügbaren Speicherplatz - 256 
:(» Start der SHAPE-Tabel le * Ende des St r i ngspeichers ) 

.•Zeiger auf nächsten freien Platz in der 

: St r i ngt abe l l e (wird der wert größer als 4003. dann ist 
:die Stringtabelle voll und es wird ein ST-Error erzeugt) 


; Stringtabel le: 

: Hier können Vektoren für maximal 11 Strings abgelegt werden. 

: Diese Tabelle wird bei der Stringaddition und einigen anderen 
: St r i ng f unkt ionen benutzt. 


16565 40B5H 

16566 40B6H 

16567 40B7H 

16568 40B8H 

16569 40B9H 

16570 40BAH 

16571 408BH 

16572 40BCH 

16573 40BDH 

16574 40BEH 
.16575 40BFH 

^16576 40C0H 

16577 40C1H 

16578 40C2H 

16579 40C3H 

16580 40C4H 

16581 40C5H 

16582 40C6H 

16583 40C7H 

16584 40C8H 

16585 40C9H 

16586 40CAH 

16587 40CBH 

16588 40CCH 

16589 40CDH 

16590 40CSH 

16591 40CFH 

16592 40D0H 

16=93 400 1 H 

16=94 40D2H 


: Zeic henket ten länge 
:Adresse im 
: Speicher 



; Vektor-Zwischenspeicher bei der Übernahme einer Stringkonstanten 
: in den St r ingsoeicher 


16595 40D3H 

16596 40D4H 

16597 40D5H 


:Str inglänge 
:Str ingadresse 


16598 40D6H 

16599 40D7H 


16600 40D8H 

16601 40D9H 


*16600 40D8H 


16602 40DAH 

16603 40DBH 


16604 40DCH 


16605 40DDH 


16606 40DEH 


16607 

16608 


400FH 

40E0H 


16609 40E1H 


16610 

16611 


16612 

16613 


16614 

16615 


1 66 1 6 
16617 


40E2H 

40E3H 


40E4H 

40E5H 


40E6H 

40E7H 


40E8H 

40E9H 


:Zeiger auf den letzten Strings im Str ingspeicher -1 

:Zwischenspeicher für PTZ. Zeiger auf die Anzahl der 
:Dimensionen beim Anlegen eines Feldes. Zeiger auf die 
snächste Feldvariable beim Sortieren des Stringspeichers 

: Format iercode für die Zahlenumwandlung (siehe 0FBDH ) 

; Zei l ennummer der aktuellen DATA-Zeile 


: Sperr f l ag für Feldvariablen. Ist dieses Flag <> 0. dann 
:sind keine Feldvariablen erlaubt (siehe FOR-Routine) 

: STOP-F l ag : Ist dieses Flag bei RETURN <> 0 wird zum 

: aktiven Befehlsmodus gesprungen, bei RESUME NEXT oder 
: RESUME ZN wird STOP ausgeTührt. Dieses Flag wird bei der 
;Übernahme einer neuen Zeile ins Programm auf 0 gesetzt 
:aber von keiner Routine ungleich 0 gesetzt, es ist also 
: wi rkungs l os 

: RE AD/ IN PUT- Flag . * 00H bei INPUT. - AFH bei READ 

: Anprungadresse nach Einladen eines SYSTEM-Programms 
: Adresse bei LET. Programmstart -1 bei CLEAR. PTZ bei NEXT 

: AUTO-Fl ag . AUTO ist aktiviert wenn dieses Flag <> 0 ist 

.-Aktuelle Zeilennummer der AUTO-Funkt ion 


: Abstand zur nächsten Zeilennummer der AUTO-Funkt ion 
:Aktueller PTZ vor der Ausführung eines BASIC-Befehls 
: BAS IC-St ackpoint er vor der Ausführung eines BASIC-Befehls 



16618 40ERH 

16619 40EBH 


16620 40ECH 

16621 40EDH 


:Zei lennummer der Zeile, in der zuletzt ein Fehler erkannt 
: wurde . C = ERL) 


: Zei l ennumier der Zeile, die zuletzt eingegeben bzw. 
:editiert wurde (für '.') 


16622 40EEH 

16623 40EFH 


:PTZ wahrend einer Fehl erbearbei tung 


16624 40F0H 

16625 40F1H 


: Zeiger auf die 0N ERROR GOTO Zeile 


16626 40F2H 


: ON ERROR ERROR Flag 

: C < > OOH , wenn ON ERROR GOTO aktiv ist) 


16627 40F3H 

16628 40F4H 


16629 40F5H 

16630 40F6H 


Zwischenspeicher für PTZ bei der Rusdrucksbearbei tung 
: Buf f eradresse des Dez i ma l punkt s bei der Zahl enumwandl ung 

:Zeilennummer der zuletzt ausgeführten Zeile nach 
: ENO . BRERH. STOP oder ERROR (für CONT) 


16631 40F7H 

16632 40F8H 


: PTZ nach END. BRERH. STOP oder ERROR (für CONT) 


16633 40F9H 

16634 40FRH 


16635 40FBH 

16636 40FCH 


Zeiger auf den Rnfang der Variablen 
:(= Endadresse des Programmtexts + 2) 


Zeiger auf den Rnfang der Feldvariablen 
:(= Endadresse der einfachen Variablen + 


16637 40FDH 

16638 40FEH 


16639 40FFH 

16640 41 OOH 


Zeiger auf den Rnfang des freien Speichers 
:(= Endadresse der Feldvariablen + 1) 


Zeiger auf den nächsten DRTR-Wer t (wie PTZ) 
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: Typcodetabel le für DEF ( DEFINT . DEFSTR. DEFSNG , 
: Für jeden Buchstaben CA - Z) steht ein Byte mit 
: Verfügung. (Voreinstellung steht auf SNG) 


: 02 = DEFINT 
: 03 « DEFSTR 
: 04 * DEFSNG 
: 08 = DEFDBL 


DEFDBL ) 

dem Variablentyp zur 


16641 4101H 04 A 

16642 4102H 04 B 

16643 4103H 04 C 

1 6644 4104H 04 D 

16645 4105H 04 E 

16646 4106H 04 F 

16647 4107H 04 G 

16648 4108H 04 H 

16649 4109H 04 I 

16650 410AH 04 3 

16651 410BH 04 K 

16652 410CH 04 L 

16653 410DH 04 fl 

16654 410EH 04 N 

16655 410FH 04 0 

16656 4110H 04 P 

16657 4111H 04 Q 

16658 4112H 04 R 

16659 4113H 04 S 

16660 4114H 04 T 

16661 411 5H 04 U 

16662 4116H 04 V 

16663 4117H 04 W 

16664 4U8H 04 X 

16665 411 9H 04 Y 

16666 41 IAH 04 Z 


16667 4 1 1BH 


: TRACE-Fl ag : 00H = TROFF. AFH = TRON 


; Zwischenspeicher X 


16668 4 1 ICH 


:Unter laufbyte 


16669 411DH 

16670 4 1 1EH 

16671 4 1 1 FH 

16672 4120H 

16673 4 1 2 1 H 

16674 4122H 

16675 4123H 

16676 4124H 


LSB) INT 
MSB) 


LSB) STR 
MSB) 

der Adresse 
des Vektors 


LSB) SNG 
LSB) 

MSB) 

EXP) 


LSB) 

LSB) 

LSB) 

LSB) 

LSB) DBL 
LSB) 

MSB) 

EXP) 


1667" 4125H 


:Signflag für Arithmetik 
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: Zwischenspeicher Y 
: Aufbau siehe X 

16678 4126H .-Unter l auf byte 

16679 4127H 

16680 4128H 

16681 4129H 

16682 412AH 

16683 412BH 

16684 412CH 

16685 412DH 

16686 412EH 


: Zwischenspeicher für 


die Zahlenumwandlung Csiehe OFBDH) 


16687 412FH 

16688 4130H 

16689 4131H 

'w 16690 4132H 

16691 4133H 

16692 4134H 

16693 4135H 

16694 4136H 

16695 4137H 

16696 4138H 

16697 4139H 

16698 413AH 

16699 413BH 

16700 413CH 

16701 413DH 

16702 413EH 

16703 413FH 

16704 4140H 

16705 4 1 4 1 H 

16706 4 1 42H 

16707 4143H 

16708 4144H 

16709 4145H 

16710 4146H 

'-J 16711 4147H 

16712 4148H 

16713 4149H 


;’X* bei Feldüberlauf 
.-Vorzeichen *-* oder * ') 

; 1 • Stelle 
:2. Stelle usw. 


: Zwischenspeicher für Mantissen 


bei MUL und DIV 


16714 414AH 

16715 414BH 

16716 414CH 

16717 414DH 

16718 414EH 

16719 414FH 

16720 4150H 

'.5721 4 t 5 1 H 
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Vektorentabei le für 

■ DOS bzw 

01 SH BASIC 


16722 

4152H 

C33B01 

DP 

013BH 

:CVI 


16725 

4 1 55H 

C33B01 

DP 

013BH 

:FN 


16728 

4158H 

C33B01 

DP 

013BH 

:CVS 


16731 

4 1 5BH 

C33B01 

DP 

013BH 

: OEF 


16734 

4 1 5EH 

:33B01 

DP 

013BH 

:CVD 


16737 

4161H 

C33B01 

DP 

013BH 

;EOF 


16740 

4164H 

C33B01 

DP 

013BH 

:LOC 


16743 

4167H 

C33B01 

DP 

013BH 

:LOF 


16746 

416AH 

C33B01 

DP 

013BH 

: MH I 5 


16749 

416DH 

C33B01 

DP 

013BH 

:(1HS$ 

W 

16752 

4170H 

C33B01 

DP 

013BH 

: MHDs 


16755 

4173H 

C33B01 

DP 

013BH 

; CMD 


16758 

4176H 

C33B01 

DP 

013BH 

sTIMES 


16761 

4179H 

C33B01 

DP 

013BH 

: OPEN 


16764 

417CH 

C33B01 

DP 

013BH 

: FIELD 


16767 

417FH 

C33B01 

DP 

013BH 

: QET 


16770 

4182H 

C33B01 

DP 

013BH 

: PUT 


16773 

4185H 

C33B01 

DP 

013BH 

:CLOSE 


16776 

4188H 

C33B01 

DP 

013BH 

: LOAD 


16779 

418BH 

C33B01 

DP 

013BH 

: MERGE 

W 

16782 

418EH 

C33B01 

DP 

013BH 

: NAHE 


16785 

4191H 

C33B01 

DP 

013BH 

:HILL 


16738 

4 1 94H 

C33B01 

DP 

013BH 

: -- ( früher ’ & ' ) 


16731 

4137H 

D33B01 

DP 

013BH 

; L.3E7 


16734 

413AH 

:32B01 

DP 

D12BH 

: RSE7 


16737 

419CH 

:22B01 

DP 

013BH 

; INS7R 


6300 

41A0H 

D33B01 

DP 

513BH 

; SAVE 


1 6303 

41A3H 

D33B01 

DP 

) 1 3EH 

; L INE 
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9RS IC -Vektoren ins DOS 


16806 

16807 

16808 


41R6H C8 
4 1R7H 00 
41R8H 00 


16809 41R9H C9 RET 

16810 41RRH 00 

16811 41RBH 00 

16812 4 1 ACH C9 RET 

16813 41 ROH 00 

16814 41REH 00 

16815 41RFH C9 RET 

16816 41B0H 00 

16817 41B1H 00 

16818 41B2H C9 RET 

16819 41B3H 00 

16820 41B4H 00 


16821 

16822 

16323 


41B5H C9 
41B6H 00 
41B7H 00 


16824 

16825 

16826 


41B8H C9 
41B9H 00 
41BRH 00 


16827 

16828 
16829 


41BBH C9 
41BCH 00 
41B0H 00 


16830 

16831 

16832 


41BEH C9 
41BFH 00 
41C0H 00 


16833 

16834 

16835 


41C1H C9 
41C2H 00 
41C3H 00 


16836 

16837 

16838 


41C4H C9 
41C5H 00 
41C6H 00 


16339 
16840 
1634 1 


41C7H C9 
41C9H 00 
41C9H 00 


16342 
1 6643 
16844 


41 CRH :« 
41CBH 00 
41CCH 00 


; Feh l er rout ine HL = Zeiger auf Fehlertext 
: E = Fehlercode (siehe 19ECH3 


: USR HL = PTZ auf Zeile nach USR-Befehl 
: (siehe 27FEH 3 


rRücksprung in den aktiven Befehlsmodus 
: ( s iehe 1R1CH3 


:Zei leneingabe 
: (siehe. 0368H) 


:Nach der Zwischencodeerzeugung 
r HL « PTZ. DE * ZN der Zeile. CY - 1 wenn ZN 
rangegeben wurde (siehe 1RR1H3 

rNach der Übernahme einer neuen Zeile 
r HL « DE = Zeiger auf das Programmende 
: ( siehe 1RECH3 

rNach der Übernahme einer neuen Zeile 
: HL » PTZ auf ersten Befehl der Zeile 
: (siehe 1RF2H 3 

rClear nach Löschen der Variablen 

:HL * Zeiger auf das Progr ammende . DE => Zeiger 

rauf den Programmstart -1 (siehe 1B8CH3 

rNach Beenden einer Druckerausgabe 
r (siehe 2174H3 


r Zeichenausgabe 

rC * RSCII-Code des auszugebenden Zeichens 
r (siehe 032CH3 

rTastaturabf rage wahrend der Progr ammaus f ührung 
r (siehe 0358H3 


: RUN 

rHL * PTZ auf Zeichen nach 'RUN' 
r ( s i ehe 1ER6H3 

: PRINT 

rHL * PTZ auf Zeichen nach 'PRINT’ 
r (siehe 206FH3 


w 
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16845 41CDH C9 

16846 41CEH 00 

16847 41CFH 00 


RET 


: PRINT (Zahlenwert) 
: C siehe 20C6H) 


16848 41D0H C9 RET {Beginn einer neuen Zeile 

16849 41D1H 00 : (siehe 2103H) 

16850 41D2H 00 

16851 41D3H C9 RET :PRINT. oder PRINTTRB 

16852 41D4H 00 ; (siehe 2108H bzw. 2141H) 

16853 41D5H 00 

16854 41D6H C9 RET : INPUT 

16855 41D7H 00 ; HL * PTZ auf Zeichen nach 'INPUT' 

16856 41D8H 00 : (siehe 219EH) 

16857 41D9H C9 RET ;MIDS links vom Gleichheitszeichen 

16858 41 r 'AH 00 : (siehe 2AECH) 

16859 41DBH 00 

16860 41DCH C9 RET {Datenauswertung bei RERD bzw. INPUT 

16861 41DDH 00 : HL *= Zeiger auT Daten (DRTA-Zeile bei RERD) 

16862 41DEH 00 {(siehe 222DH ) 

16863 41DFH C9 RET {Abschluß von INPUT 

16864 41E0H 00 {DE * PTZ. HL - Bufferzeiger 

16865 41EIH 00 {(siehe 2278H) 

16866 41E2H C9 RET {SYSTEM 

16867 41E3H 00 {(siehe 02B2H) 

16863 41E4H 00 

; Zeilenbuffer 

16869 41E5H 3R {Markierung 

16870 41E6H 00 {für den Start 

16871 41E7H 2C : des Zei l enbuf Ters 

16872 41E8H : 255 Bytes für die Ein- und Ausgabe von BASIC-Zeilen 


{Ende des Zeilenbuffers 


17128 42E8H 

17129 42E9H 

17130 42EAH 

17131 42EBH 

17132 42ECH 

17133 42EDH 

17134 42EEH 

17135 42EFH 
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Progr ammierungst abel l e für den CRTC im LGR-Modus 
Erklärungen siehe S. 115 im Handbuch 




17136 42F0H 01 

17137 42F1H 00 

17138 42F2H 00 

17139 42F3H 04 

17140 42F4H 07 

17141 42F5H C4 

17142 42F6H 07 

17143 42F7H A0 

17144 42F8H 1F 

17145 42F9H 19 

17146 42FAH 00 

17147 42FBH 26 

17148 42FCH 96 

17149 42FDH 34 

17150 42FEH 28 

17151 42FFH 46 

: Programmierungstabei le für den CRTC im FGR-Modus 
: Erklärungen siehe S. 115 im Handbuch 


17152 4300H 00 

17153 4301H 00 

17154 4302H 00 

17155 4303H 08 

17156 4304H 00 

17157 4305H 20 

17158 4306H 01 

17159 4307H 20 

17160 4308H 74 

17161 4309H 66 

17162 430AH 1F 

17163 430BH 7E 

17164 430CH 96 

17165 430DH 34 

17166 430EH 28 

17167 430FH 46 


: 3 Werte für die Zei tschl ei fen bei den Casset tenoper at ionen 


17168 431 OH 46 

17169 431 1H 4B 

17170 4312H 69 



17171 

4313H 

: FCOLOUR-Wer t 

17172 

4314H 

; SCALE -Wer t 

17173 

4315H 

: letzter X-Wert von PLOT (für PLOT TO X.Y) 

17174 

4316H 

: letzter Y-Wert von PLOT (für PLOT TO X.Y) 

17175 

4317H 

: Maske für SHAPE . NSHAPE und XSHAPE 

17176 

4318H 

; ( siehe 301EH ff) 

17177 

4319H 

:2. Begrenzungs färbe bei PAINT 

17178 

431 AH 

;1. Begrenzungs färbe bei PAINT 

17179 

431BH 

:Neue Farbe bei PAINT 

17180 

43 1 CH 

sLetzter Wert der an den Port 255 ausgegeben wurde 

17181 

431 DH 

rAnzahl der bei PAINT angegebenen Begrenzungs färben 

17182 

431EH 

; X-Wer t bei PAINT 

17183 

431 FH 

: Y-Wert bei PAINT 

17184 

4320H 

: X-Wer t des linken Randes bei PAINT 

17185 

4321H 

; X-Wer t des rechten Randes bei PAINT 

17186 

4322H 

- 

17187 

4323H 


17188 

4324H 


17189 

4325H 


17190 

4326H 


17191 

4327H 


17192 

4328H 


17193 

4329H 


17194 

432AH 


17195 

432BH 


17196 

432CH 


17197 

432DH 


17198 

432EH 


17199 

432FH 


17200 

4330H 


17201 

433 1H 


17202 

4332H 


17203 

4333H 


17204 

4334H 


17205 

4335H 


17206 

4336H 


17207 

4337H 


17208 

4338H 


17209 

4339H 


17210 

433AH 


17211 

433BH 


17212 

433CH 


17213 

433DH 


17214 

433EH 


17215 

433FH 


17216 

4340H 


17217 

434 1 H 


17218 

4342H 


17219 

4343H 




w 


17220 4344H 

17221 4345H 

17222 4346H 

17223 4347H 

17224 4348H 

17225 4349H 

17226 434RH 

17227 434BH 

17223 434CH 

17229 434DH 

17230 434EH 

17231 434FH 

: Tabelle der FKEY-Texte 

: Für jede FHEY-Taste sind 7 Bytes reserviert 
: 00H wird als RETURN interpret iert - 


17232 

17233 

17234 

17235 

17236 

17237 

17238 


4350H 4C 
4351H 49 
4352H 53 
4353H 54 
4354H 20 
4355H 20 
4356H 20 


; Fl : 


'LIST 


17239 4357H 52 : F2 : 'RUN 

17240 4358H 55 

17241 4359H 4E 

17242 435RH 20 

17243 435BH 20 

17244 435CH 20 

17245 435DH 20 


17246 435EH 41 

17247 435FH 55 

17248 4360H 54 

17249 4361H 4F 

17250 4362H 20 

17251 4363H 20 

17252 4364H 20 


:F3: 


’RUTO 


17253 4365H 45 ; F4 : 'EDIT 

17254 4366H 44 

17255 4367H 49 

17256 4368H 54 

17257 4369H 20 

17258 436RH 20 

17259 436BH 20 


231 



17260 436CH 52 :F5: 'RENUM ’ 

17261 436DH 45 

17262 436EH 4E 

17263 436FH 55 

17264 4370H 40 

17265 437 1H 20 

17266 4372H 20 


17267 4373H 53 

17268 4374H 59 

17269 4375H 53 

17270 4376H 54 

17271 4377H 45 

17272 4378H 4D 

17273 4379H 00 

17274 437AH 43 

17275 437BH 4C 

17276 437CH 4F 

17277 437DH 41 

17278 437EH 44 

17279 437FH 20 

17280 4380H 20 

17281 4381H 43 

17282 4382H 53 

17283 4383H 41 

17284 4384H 56 

17285 4385H 45 

17286 4386H 20 

17287 4387H 22 


:F6: 'SYSTEM' < RETURN > 


:F7: 


'CLORD ' 


: F8 : 


'CSAVE ”* 


17288 4388H 

17289 4389H 

17290 438AH 

17291 438BH 


17292 438CH 

17293 438DH 


:Zeiger auf die COLOUR-Basic Keywordtabel le 


17294 438EH 

17295 438FH 


:Zeiger auf die COLOUR-Basic Sprungadr essen- 
: tabel le 
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Tabelle zur Anpassung der Farbcodes 


17296 4390H 03 

17297 4391H 05 

17298 4392H 02 

17299 4393H 04 

17300 4394H 06 

17301 4395H 08 

17302 4396H 01 

17303 4397H OE 

17304 4398H 09 

17305 4399H 10 

17306 439AH 07 

17307 439BH OB 

17308 439CH OC 

17309 439DH 00 

17310 439EH OA 

17311 439FH OF 


17312 43A0H ;Unbenutzt bis Ceinschl.) 43FFH 


17407 43FFH 

17408 4400H :Start des Bildschirmspeichers 



128 « 80H : END 
130 » 82H : RESET 
132 - 84H : CLS 
134 - 86H : RANDOM 
136 - 88H : DATA 
138 - 8AH : DIM 
140 * 8CH : LET 
142 « 8EH : RUN 
144 = 90H : RESTORE 
146 « 92H : RETURN 
148 - 94H : STOP 
150 = 96H : TRON 
152 = 98H : DEFSTR 
154 = 9AH : DEFSNQ 
156 - 9CH : LINE 
158 = 9EH s ERROR 
160 * AOH : OUT 
162 = A2H : Or'EN 
164 = A4H : SET 
166 = A6H : CLOSE 
168 = A8H : MERGE 
170 = AAH : KILL 
172 « ACH : RSET 
174 = AEH : SYSTEM 
176 - BOH : DEF 
178 - B2H : PRINT 
180 - B4H : LIST 
182 * B6H : DELETE 
184 * B8H : CLEAR 
186 * BAH : CSAVE 
188 - BCH : TABC 
190 => BEH s FN 
192 * COH : VARPTR 
194 « C2H : ERL 
196 * C4H : STRINGS 
198 * C6H : CHECK 
200 » C8H : MEM 
202 « CAH : THEN 
204 - CCH s STEP 
206 = CEH s - 
208 « DOH : / 

210 * D2H : AND 
212 = D4H s > 

214 * D6H : < 

216 = D8H : INT 
218 = DAH : FRE 
220 = DCH : POS 
222 = DEH : RND 
224 * EOH : EXP 
226 - E2H : SIN 


129 * 8 1H : FOR 
131 - 83H : SET 
133 - 85H : CMD 
135 * 87H : NEXT 
137 » 89H : INPUT 
139 » 8BH : READ 
141 = 8DH : GOTO 
143 * 8FH : IF 
145 - 91H : GOSUB 
147 - 93H ; REM 
149 - 95H : ELSE 
151 « 97H : TROFF 
153 » 99H : DEFINT 
155 = 9BH : DEFDBL 
157 = 9DH : ED IT 
159 = 9FH : RESUME 
161 « A1H : ON 
163 * A3H : FIELD 
165 = A5H : PUT 
167 * A7H : LOAD 
169 * A9H ; NAME 
171 * ABH : LSET 
173 - ADH : SAVE 
175 * AFH : L PR INT 
177 - B1H : POKE 
179 - B3H : CCNT 
181 = B5H : LLIST 
183 * B7H : AUTO 
185 - B9H s CLOAD 
187 * BBH : NEW 
189 - BDH s TO 
191 » BFH : USING 
193 « C1H : USR 
195 - C3H : ERR 
197 « C5H : INSTR 
199 - C7H : TIMES 
201 * C9H : INKEYS 
203 * CBH : NOT 
205 « CDH : + 

207 » CFH : * 

209 = D1H : Ä 
211 = D3H : OR 
213 = D5H : = 

215 = D7H : SGN 
217 * D9H : ABS 
219 = DBH : I NP 
221 * DDH : SQR 
223 * DFH : LOG 
225 =■ E1H : COS 
227 = E3H : TAN 





228 

230 

232 

234 

236 

238 

240 

242 

244 

246 

248 

250 


E4H : ATN 
E6H : CVI 
E8H : CVD 
EAH : LOC 
ECH : PIK 15 
EEH : P1KDS 
FOH : CSNG 
F2H : FIX 
F4H : STR$ 
F6H : ASC 
F8H : LEFT5 
FAH : MID* 


229 - E5H 
231 - E7H 
233 * E9H 
235 = EBH 
237 - EOH 
239 = EFH 
241 - F1H 
243 * F3H 
245 - F5H 
247 ■ F7H 
249 « F9H 
251 = FBH 


PEEK 

CVS 

EOF 

LOF 

P1KS5 

CINT 

COBL 

LEN 

VAL 

CHRS 

RIGHTS 


Befehle mit Doppel toKen (vorher jeweils 255 = FFH) 


128 = 80H 
130 = 82H 
132 « 84H 
134 = 86H 
136 =» 88H 
138 * 8AH 
140 * 8CH 
142 * 8EH 
144 « 90H 
146 * 92H 
148 * 94H 
150 = 96H 
152 * 98H 


COLOUR 

KEYPAD 

PLOT 

LGR 

PLAY 

SCALE 

NSHAPE 

PA INT 

NPLOT 

CHAR 

SWAP 

CALL 

BGRD 


129 - 81H 
131 * 83H 
133 » 85H 
135 « 87H 
137 = 89H 
139 » 8BH 
141 « 8DH 
143 - 8FH 
145 * 91H 
147 « 93H 
149 » 95H 
151 - 97H 
153 - 99H 


FCOLOU CR) 

3 OY 

FGR 

FCLS 

CIRCLE 

SHAPE 

XSHAPE 

C PO I NT 

SOUND 

RENUM 

FKEY 

VERIFY 

NBGRD 
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251 - FBH : ' 

205 - CDH : + 

208 « DOH : / 

213 - D5H : - 

217 * D9H : ABS 

246 - F6H : ASC 

183 = B7H : AUTO 

247 - F7H : CHR* 

184 = B8H : CLEAR 
166 - A6H : CLOSE 
133 * 85H : CMD 
225 = E1H : COS 
240 » FOH : CSNG 
230 « E6H s CVI 
136 = 88H : DATA 

155 - 9BH : DEFDBL 
154 - 9AH : DEFSNG 
182 - B6H : DELETE 

157 = 9DH : EDIT 
128 * 80H : END 
194 = C2H : ERL 

158 - 9EH : ERROR 
163 * A3H : FIELD 
190 * BEH : FN 

218 « DAH : FRE 
145 = 91H : GOSUB 
143 - 8 FH : IF 

219 - DBH : INP 

197 * C5H : INSTR 

170 * AAH : KILL 
243 * F3H : LEN 

156 * 9CH : LINE 
181 - B5H ; LLIST 
234 - EAH : LOC 
223 * DFH : LOG 

171 - ABH : LSET 
168 - A8H : MERGE 
238 » EEH : MKD* 
237 = EDH : MKS* 
187 = BBH : NEW 
203 = CBH : NOT 
162 => A2H ; OPEN 
160 * AOH : OUT 

198 - C6H : CHECK 

220 « DCH : POS 
165 « A5H : PUT 
139 - 8BH : READ 
130 « 82H : RESET 

159 * 9 FH : RESUME 
249 - F9H : RIGHT* 


207 » CFH : * 

206 - CEH : - 
214 » D6H : < 

212 - D4H : > 

210 « D2H s AND 

228 * E4H : ATN 

241 = F1H : CDBL 
239 * EFH : CINT 

185 * B9H : CLOAD 
132 - 84H : CLS 

179 = B3H : CONT 

186 * BAH : CSAVE 

232 - E8H : CVD 
231 * E7H : CVS 

176 =■ BOH : DEF 
153 - 99H : DEFINT 
152 = 98H : DEFSTR 
138 = 8AH : DIM 
149 - 95H : ELSE 

233 - E9H s EOF 
195 - C3H : ERR 
224 - EOH s EXP 

242 - F2H : FIX 
129 » 81H ; FOR 
164 * A4H : GET 
141 * 8DH : GOTO 
201 « C9H : INKEY* 
137 * 89H : INPUT 
216 * D8H : INT 
248 « F8H : LEFT5 
140 « 8CH : LET 

180 * B4H : LIST 
167 - A7H : LOAD 

235 = EBH : LOF 
175 - AFH : L PR I NT 
200 - C8H : MEM 
250 * FAH : MID* 

236 = ECH : MK I * 

169 * A9H : NAME 
135 « 87H : NEXT 
161 « A1H : ON 

211 - D3H : OR 

229 - E5H : PEEK 

177 = B1H : POKE 

178 * B2H : PRINT 
134 - 86H : RANDOM 
147 = 93H : REM 
144 = 90H : RESTORE 
146 * 92H : RETURN 
222 » DEH : RND 
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172 - ACH 

173 = ADH 
215 * D7H 
22 1 = DDH 
148 * 94H 
196 « C4H 

188 « BCH 
202 - CAH 

189 - BOH 
150 « 96H 
193 » C1H 
192 « COH 


: RSET 
: SAVE 
: SGN 
: SQR 
: STOP 
: STRINGS 
: TABC 
: THEN 
: TO 
: TRON 
: USR 
: VARPTR 


Befehle 


mit Doppeltoken (vor 


152 * 98H 
146 = 92H 
128 - 80H 
135 = 87H 
133 * 85H 

131 * 83H 

143 « 86H 

144 = 90H 
142 * 8EH 

132 * 84H 
138 * 8AH 

145 * 9 1H 
151 » 97H 


BGRD 

CHAR 

COLOUR 

FCLS 

FGR 

30V 

LGR 

NPLOT 

PA INT 

PLOT 

SCALE 

SOUND 

VERIFY 




142 = 8EH : RUN 
131 - 83H : SET 

226 * E2H : SIN 
204 * CCH : STEP 

244 * F4H : STRS 
174 * REH : SYSTEM 

227 - E3H : TAN 
199 * C7H : TIMES 
151 * 97H : TROFF 
191 « BFH s USING 

245 « F5H : VAL 
209 » D1H : Ä 


•her jeweils 255 « FFH ) 

150 » 96H : CALL 
137 » 89H : CIRCLE 
143 * 8FH j C PO INT 

129 * 8 1H : FCOLOU CR) 
149 * 95H s FKEY 

130 * 82H : KEYPAD 
153 « 99H : NBGRD 

140 » 8CH : NSHAPE 
136 * 88H s PLAY 

147 = 93H : RENUM 
139 = 8BH : SHAPE 

148 - 94H : SWAP 

141 « 9DH : XSHAPE 
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Dezimal-, Hexadezimal-, flSC I I -Tabc l l e 


0 

= 

0 0 H 


1 

- 

3 

= 

0 3 H 


4 

= 

6 

= 

06H 


7 

= 

9 

= 

09H 


1 0 

= 

1 2 

= 

0CH 


1 3 

= 

1 5 

= 

0FH 


1 6 

= 

1 3 

= 

1 2H 


1 9 

= 

21 

= 

1 5H 


22 

= 

24 

= 

1 8 H 


25 

= 

27 

= 

1 BH 


28 

= 

3 3 

= 

1 EH 


31 

s 

33 

= 

21 H 

! 

34 

s 

3 6 

= 

24H 

$ 

37 

s 

3 9 

= 

27H 

' 

40 

= 

42 

= 

2 A H 

* 

43 

= 

45 

= 

2DH 

- 

46 

= 

43 

= 

3 0 H 

0 

49 

3 

5 1 

= 

33H 

3 

52 

= 

54 

= 

3 6 H 

6 

55 

= 

57 

- 

3 9 H 

9 

58 

= 

60 

= 

3CH 

< 

6 1 

3 

63 

= 

3FH 

? 

64 

= 

66 

= 

42H 

B 

67 

= 

69 

S 

45H 

E 

78 

- 

72 

= 

48H 

H 

73 

3 

75 

= 

4BH 

K 

76 

= 

73 

= 

4EH 

N 

79 

s 

81 

= 

51 H 

Q 

32 

= 

84 

= 

5 4 H 

T 

35 

= 

37 

= 

57H 

U 

38 

3 

90 

= 

SAH 

2 

91 

= 

93 

= 

5DH 

3 

94 

s 

96 

= 

6 0 H 


97 

= 

99 

= 

63H 

c 

1 00 

= 

1 32 

= 

66 H 

f 

1 03 

= 

1 05 

= 

6 9 H 

i 

1 06 

= 

1 03 

= 

6CH 

1 

1 09 

= 

1 1 1 

3 

6FH 

o 

1 1 2 

= 

1 1 4 

= 

72 H 

r 

1 1 5 

= 

1 1 7 

= 

75H 

u 

1 1 3 

3 

1 28 

= 

7 8 H 

X 

121 

3 

1 23 

= 

7BH 

< 

1 24 

= 

1 26 

= 

7EH 


1 27 

3 

1 29 

= 

81 H 

r 

1 38 

3 

1 32 

= 

3 4 H 

4 

1 33 

3 

1 35 

= 

37 H 

T 

1 36 

= 


01 H 


2 

3 

02H 


0 4 H 


5 

3 

0 5 H 


07H 


8 

3 

0 8 H 


0 AH 


1 1 

3 

0 B H 


0 D H 


1 4 

3 

0EH 


1 0 H 


1 7 

3 

1 1 H 


1 3H 


20 

3 

1 4H 


1 6 H 


23 

3 

1 7H 


1 9H 


26 

3 

1 AH 


1 CH 


29 

3 

1 OH 


1 FH 

* 

32 

3 

20H 


22H 

“ 

35 

3 

23H 

* 

25H 

V. 

33 

3 

26H 


2 8 H 

< 

41 

3 

29H 

> 

2BH 

+ 

44 

3 

2CH 

, 

2EH 


47 

3 

2FH 

/ 

31 H 

1 

50 

3 

32H 

2 

3 4 H 

4 

53 

3 

35 H 

5 

37H 

7 

56 

3 

38H 

8 

3 A H 


59 

3 

3BH 

i 

3 D H 

= 

62 

= 

3EH 

> 

4 0 H 

e 

65 

3 

41 H 

A 

43H 

c 

68 

= 

44H 

0 

46H 

F 

71 

s 

47H 

S 

49H 

I 

74 

3 

4 AH 

3 

4CH 

L 

77 

3 

4DH 

M 

4FH 

0 

30 

3 

5 0 H 

P 

5 2 H 

R 

33 

3 

53H 

S 

55H 

U 

36 

3 

56H 

V 

53H 

X 

39 

3 

59H 

Y 

5BH 

c 

92 

3 

5CH 

\ 

5EH 


95 

3 

5FH 


6 1 H 

a 

98 

3 

62H 

b 

64 H 

d 

1 01 

3 

65H 

e 

67 H 

■3 

1 04 

3 

6 3 H 

h 

6AH 

j 

1 87 

3 

6 B H 

k 

6DH 

rn 

1 1 0 

3 

6EH 

n 

70H 

P 

1 1 3 

3 

71 H 

A 

73H 

s 

1 1 6 

3 

74H 

t 

76H 

M 

1 1 9 

3 

77H 

Ul 

79ü_y 

122 

3 

7 A H 

z 

7CH 

! 

1 25 

3 

7DH 

> 

7FH 

■ 

1 23 

3 

3 0 H 

T 

32H 

J 

1 31 

3 

33H 

L 

8 5 H 

► 

1 34 

3 

3 6 H 

A 

33H 

— 

1 37 

= 

39H 

1 
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1 33 

= 

SAH 

1 

1 39 

= 

8BH 

_ 

1 40 

= 

8CH 


1 4 1 

= 

8DH 

□ 

1 42 

= 

8EH 

1 

1 43 

= 

3 F H 


1 44 

s 

9 0 H 

1 

1 45 

= 

9 1 H 

m 

1 46 

= 

92H 

r 

1 47 

= 

93 H 


1 43 

= 

9 4 H 

> 

1 49 

= 

95H 

< 

1 50 

= 

96H 

> 

1 51 

= 

97H 

4 

1 52 

= 

98H 

m 

1 53 

= 

99H 

* 

1 54 

= 

9 AH 

m 

1 55 

= 

9BH 

L 

1 56 

= 

9CH 

J 

1 57 

= 

9DH 

A 

1 58 

= 

9EH 

V 

1 59 

= 

9FH 


1 60 

= 

A0H 

» 

1 61 

= 

AI H 

m 

1 62 

s 

A2H 

C 

1 63 

= 

A3H 

1 

1 64 

= 

A4H 

n 

1 65 

= 

A5H 

u 

1 66 

= 

A6H 

■fr 

1 67 

= 

A7H 

Hl- 

1 63 

= 

A3H 

II 

1 69 

= 

A9H 

m 

- 1 70 

= 

A AH 

rii 

1 71 

= 

ABH 

1 

1 72 

= 

ACH 

□ 

1 73 

= 

AOH 

n 

1 74 

= 

AEH 

c 

1 75 

= 

AFH 

r 

1 76 

= 

B0H 

u 

1 77 

= 

B 1 H 

■ 

1 73 

= 

B2H 

'4 

1 79 

= 

B3H 

.i 

1 30 

= 

B 4 H 

_ 

1 31 

= 

B5H 

— 

1 82 

= 

B6H 

i 

183 

= 

B7H 

© 

1 84 

= 

B8H 

U 

1 35 

= 

B9H 


1 36 

= 

BAH 

1 

1 37 

= 

BBH 

_ 

1 38 

= 

BCH 


1 39 

= 

BOH 

■ 

1 90 

= 

BEH 

■ 

1 91 

= 

BFH 

“ 

1 92 

= 

C0H 

* 

1 93 

= 

CI H 

= 

1 94 

= 

C2H 

+ 

1 95 

= 

C3H 

:ä 

1 96 

= 

C4H 

m 

1 97 

= 

C5H 

X 

1 93 

= 

C6H 

* 

1 99 

= 

C7H 

M 

200 

= 

C3H 

* 

20 1 

= 

C9H 

* 

202 

= 

CAH 

■ 

203 

= 

CBH 

ii 

204 

= 

CCH 

III 

205 

= 

CDH 

Ä 

206 

= 

CEH 


207 

= 

CFH 

1 

203 

= 

D0H 

— 

209 

= 

D 1 H 


2 1 0 

= 

02H 

m 

21 1 

= 

D3H 

— 

212 

= 

D 4 H 

i 

21 3 

= 

D5H 

1 

21 4 

= 

D 6 H 

■■ 

21 5 

= 

D7H 

= 

21 6 

= 

D3H 

III 

217 

= 

D9H 

— 

21 3 

= 

DAH 


2 1 9 

= 

DBH 

1 

220 

= 

OCH 


221 

= 

DDH 

IT 

222 

= 

DEH 


223 

= 

DFH 

/ 

224 

= 

E0H 

k 

225 

= 

El H 

1 

226 

= 

E2H 

r 

227 

= 

E3H 

\ 

223 

= 

E4H 


229 

= 

E5H 

w 

230 

= 

E6H 

• 

*3 1 

= 

E7H 


232 

= 

E3H 

T 

233 

= 

E9H 

□ 

*3 4 

= 

E AH 


235 

= 

EBH 

O 

236 

= 

ECH 

r 

237 

= 

EDH 

T 

233 

= 

EEH 

4 

239 

= 

EFH 

L 

240 

= 

F0H 

-1 

241 

= 

Fl H 

X 

242 

= 

F2H 

♦ 

243 

= 

F3H 


244 

= 

F4H 

* 

245 

= 

F5H 

i 

246 

= 

F6H 


247 

= 

F7H 

:: 

248 

= 

F3H 

□ 

249 

= 

F9H 


250 

= 

FAH 

n 

251 

= 

FBH 

4, 

252 

255 


FCH 

FFH 


253 

= 

FDH 

<r 

254 

- 

FEH 
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